


Neste livro introduzem-se criancas e adultos pa¬ 
ra o mundo fascinante da ciencia, ilustrada pelos 
graficos, atraves da tela conectada a esta mara- 
vilha eletronica que e o microcomputador TK 90X. 

O livro, nos seus 20 capituios apresenta diver- 
sos programas em BASIC que permitem a voce 
obter espirais, circuitos eletronicos, visao tridi¬ 
mensional dos corpos, o seu biorritmo um simu- 
lador logico etc. 

Toda a potencialidade de seu TK 90X, princi- 
palmente no que se refere a parte grifica, e ilus¬ 
trada com estes programas. 



Voce sabia que, entre outras coisas, o TK 90X 
permite criar os seus proprios caracteres graficos? 

As possibilidades, as descobertas e a alegria 
sao sem limites depois da exibicao na tela dos re- 
sultados de todos os programas apresentados. 

Tudo o que voce deve fazer para atingir este 
"estado de graca'' e ter estes livros e o TK 90X, 
sentar a sua frente e, com o livro ao lado, come- 
car a teclar desesperadamente... 
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Neste livro introduzem-se crianqas e adul- 
tos para o roundo fascinante da ciencia, ilustrada 
pelos graficos, atraves da tela conectada e esta ma 
ravilha eletronica que e o microcomputador TK 90X. 

0 livro, nos seus 20 capitulos contem mui 
tos programa's (31 no total) todos apresentados na 
linguagem BASIC para o TK 90X. 

Estes programas "invadem" as mais diversas 
areas como a Matematica, a Fisica, a Eletronica, a 
Quxmica, o Desenho, etc. 

Toda a potencialidade do seu TK 90X, prin- 
cipalmente no que se refere a parte grafica e ilus- 
trada com estes programas. 

Voce vera lindas curvas (senoides, - circun-' 
ferencias, ellpses), podera saber como e o seu bio- 
ritmo, aproximara ou afastara de si lindo octaedro, 
brincara com todas as opoes permitidas para as por- 
tas logicas, vivera a visao tridimensional com o 
chapeu mexicano, etc. 

As possibilidades, as descobertas e a ale- 
gria sao sem limites depois que voce estimado(a) 
1eitor(leitora) ver exibidos na tela os resultados 
de todos os programas do livro. 
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fi util ressaltar que neste livro nao exis- 
te a preocupagao de fornecer explicagao detalhada 
para as instrugoes que constituem os programas. 

Caso o(a) respeitado(a) leitor(leitora) t 
nha duvida sobre o desempenho de alguns comandos d 
ve recorrer ao livro "BASIC no TK 90X" que e tambem 
de minha autoria. 

Porem, a partir dest.e momento, tudo o que 
voce deve fazer para atingir urn "estado de graga" e 
com este livro ao lado, sentar em frente ao seu TK 
90X e comegar a teclar. 
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fflaptiula l 


Exmtfaa A* figures 


Os pequenos programas que se seguem vao lhe 
dar os primeiros indlcios das potencialidades doseu 
TK 90X na geraqao de figuras e curvas. 

■0 primeiro programa desenha uma serie de 
curvas senoidais. 

10 LET r=RND*6 : PAPER r : BORDER r : INK 7 
15 CLS 

20 FOR j=l TO 2 

30 FOR a - 0 TO 50 STEP 10 

40 FOR x * 0 TO S STEP 0.05 

50 IF j=l THEN PLOT 20*x + a, 38*SINx + 38 + a 

60 IF j=*2 THEN PLOT OVER 1; 20*x + a, 38*SINx + 38 + a 

70 NEXT x 

80 NEXT a 

90 NEXT j 

100 CLS 
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Execute e veja se sai algo do seguinte ti- 

po: 



Figura la 

( 0 . 1 .) 

no lugar do SIN x com COS x, 
mude os passos nas linhas 20 e 30, introduza outros 
valor es na linha 50 (por exemplo,25 no lugar de 20 
e 30 no lugar de 38) etc.. 

Mexa-se e obtenha outras lindas figuras 
com o programa. 

0 programa que vem a seguir representa o 
grafico de uma fungao depois que voce introduzir a 
mesma dentro do TK 90X. 

Al vao algumas sugestoes para a f(x) 

2 10000 x 

» e » 


Observaqao Importante 


Tente entrar 


0,5x+4, x‘ 


300-x’ 


/jc , etc. 
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10 INPUT. INK 3; "Esereva uma fungao de xO"; LINE f$ 

20 LET r = RND*5: PAPER r: BORDER r: INK 6: CLS 
30 PLOT 0,175: DRAW 0 r 175 
40 DRAW 255,0 
50 FOR x = 0 TO 255 
60 LET y = VAL f$ 

70 IF x >255 OR y >175 THEN GO TO 110 
80 PLOT x,y. 

90 SOUND 0.018,12 
100 NEXT x 

110 PRINT AT 13,2; FLASH 1; n y="; f$ 

nr 

Voce caro(a) leitor (leitora) tern urn progra¬ 
ma bem mais sofisticado que este com a mesma finali 
dade com o nome "REPRESENTAgSo DE UMA FUNQA0" - 

Capitulo 16-. 




0 ultimo mini-programa do' topico "Execugao 
de figuras" desenha circunferencias com. centros di- 
ferentes e com diferentes raios (tenor e maior) com 
o que se obtem circunferencias "sobrepostas". 


10 REM **Desenho de muitas circunferencias 
20 INPUT "Entre com a abscissa (x)"; x 
30 INPUT "Entre com a ordenada (y)"; y 
40 INPUT "Qual e o raio menor (1-25)?"; rmin 
50 INPUT "Qual e o raio maior (20-50)?; rmax 
60 INPUT "Qual e a cor?"; c 
70 FOR z =* rmin TO rmax 
80 CIRCLE INK c; x,y,z 
90 NEXT z 
100 GOTO 20 
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Execute e veja se sai algo do tipo: 



0,1. - Toda vez que na listagetn de um programa apa~ 
recer o caractere Uto significa que e 

para deixar um espaqo em branco. 


(ttapttulo 2 

(Srafiroa 
t rigottontetricos 


Inicialmente vejamos como se pode obter um 
conjunto de padroes graficos descobertos no seculo 
XIX pelo fisico frances Jules Lissajous que estudou 
a composi§ao dos movimentos vibratorios mediante um 
processo otico. 

Hoje e muito simples obter a figura de Lis 
sajous indicada na Figura 2. 



Figura 2 - p * 1.1 
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Ai vai o programa que lh.e permite obter i 


10 INPUT "Entre com o parametro (0.7 a 1.3) ; p: CLS 
20 BORDER 1: INK 2: PAPER 6 
30 LET t = 0 
40 LET t = t+.l 

50 LET x = 50 * (1 + SIN (p*t)) s' 

60 LET y = 50 * (1+COS t) / oy 

70 PLOT x + 50, y + 50 

80 GOTO 40 £ —V' T>4_' ^ 


Q • ^ ' J 

Qualquer duvida que voce tiver sobre as 

ins tru^oes deve recorrer ao livro "BASIC NO TK 90X 
de nossa autoria obviamente... 


Uma segunda ilustra<jao no seu TK 90X daqui 
lo que ja lhe deu (ou lhe dara) muito trabalho e o 

^ S 6I1X 

grafico da funqao —— • 

Aqui vai a simples e musical, representaqSo 

da propria 


10 CLS 

20 INK 2: PAPER 6: BORDER 1 
30 FOR j*I TO 250 
40 IF j =125 THEN GOTO 60 
50 LET x = (j-125)/5 
60 LET y - 80 *SIN(x)/x 
70 PLOT j,y: DRAW l,y 
80 SOUND .018, y/2 
90 NEXT j 
100 GOTO 10 



SOX 
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Para finalizar este pequeno compacto do 
uso das funqoes seno e cosseno ai vai o programa 
que da o grafico da rosacea de quatro folhas cuja 
equa^ao polar e: 

r = a cos 21 (0 4 2 it , a = 50) 

usando-se as expressoes parametricas 

( x = r sen t 
y - r cos t 

■10 INK 2: PAPER 7 : BORDER 1 
20 LET 1=0: LET F=2*PI 
30 LET N=90 
40 LET A=50 
50 LET INC = (F-I)/N 
60 FOR j=I TO F STEP INC 
70 LET R=A*C0S(2*j) 

80 LET X=R*SIN j 
90 LET Y=R*COS j 
100 PLOT 127+x, 87+y 
110 NEXT j 
120 STOP 




(Japttula 3 
®r?a «n wtt 


Como existe apenas m numero finito de pi¬ 
xels disponivel na tela, as linhas retas desenhadas 
na diagonal parecem muitas vexes com "escadinhas". 

Na pratica isto nSo representa nenhnm pro- 
blema real e atS pode ser convertido em uma vanta- 
gem como e o case do primeiro programa deste capitu 
lo no qual se desenha uma sequencia de 90 belos qua 

dr os . 

Este programa, por incrrvel que possa pare 
cer utilize os pequenos defeitos dos aparelhos de 
T.V. que tendem a nio apresentar os detalhes mais 

finos. 

Bern chega de papo, e voce mesmo que vai no 
tar e julgar a beleaa e o aspecto artlstieo provoca 
do pelo programa. 
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10 FOR q=l TO 90 
20 LET p=2 + INT(3*RND) 

30 LET c=INT(2*RND) 

40 FOR x=255 TO 0 STEP -p 

50 PLOT x,0: DRAW OVER c; 255 -2*x, 175 

60 NEXT x 

70 FOR y-0 TO 175 STEP p 

30 PLOT 0,y: DRAW OVER c; 255, 175 - 2*y 

90 NEXT y 

100 NEXT q 

Ai vao algumas rapidas explicaqoes 




1) Da linha 10 atealinha 100item-se o LOOP que serve para 
imprimir os 90 quadros. 


2) Na linha 20 tem-se a instrugao que faz a escolha alea- 
toria do passo para as linhas 40 e 70 sendo que o valor 
do passo esta sempre entre 2 e 4 (extremos incluidos). 


3) Na linha 30 tem-se a escolha aleatoria do valor de c 
que pode s.er 0 ou 1. 

Este codigo e usado nas linhas 50 e 80 apos a ins¬ 
trugao DRAW OVER para fazer com que o programa faga o 
TK 90X desenhar linhas pretas (quando c=0) ou dese- 
nhar linhas invertendo o que ja esta na tela (c=l). 


4) 0 LOOP que vai das linhas 40 ate 60 desenha uma metade 
do quadro e o que vai das linhas 70 ate 90 a outra me¬ 
tade. 


Execute o programa e veja se obtem algo pa 
recido com o que esta na Figura.3. 
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Voce percebeu o Undo e'feito provocado pe- 

la instru<ja° DRAW. 

Porem ela tern muito mais coisa embutida 

dentro das suas possibilidades. 

Ao se acrescentar um terceiro valor apos a 

instrugao DRAW ou seja escr evendo-se 

DRAW x,y,a 

o TK 90X desenhara um arco de circunferencia. 

Para ter uma imediata demonstraqao deste 

efeito tecle o seguinte programinha: 

10 FOR p - -1.5*P1 TO 1.5*PI STEP Pl/2 
20 PLOT 127,60 
30 DRAW 0,60,p 
A0 NEXT p 

Execute e veja se obtem o que esta indica- 
do na Figura A. 




Figure 4 
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Voce vai sentir nos diversos programas des 
te livro que a instruqao DRAW e usada como parte de 
uma rotina para desenhar as mais complicadas formas 
geometricas mas neste momento quero lhe dar um pou- 
co de distraqao e por isto ai vai um programa no 
qual se apresenta um joguinho baseado muito no po- 
der da instruqao DRAW. 

A finalidade do jogo e voce "capturar" onu 
mero maximo possivel de capsulas espaciais escolhen 
do um campo de forqa adequado em torno delas. 

0 campo de forqa tern a forma de* uma bolha 
e voce pode controlar o seu tamanho, 

Existe apenas um pequeno problema ou seja 
se voce tocar com o contorno da bolha em alguma das 
cap sulas esp'aciais desativara o mesmo por ter provo 
cado um curto-circuito. 

Neste jogo podem participar dois ou mais 
cont-endores cada um deles sendo ellminado do jogo 
quando ocorrer a destruiqao do seu campo de fdrqa. 

Ai vai o.programa: 

5 INK 3: BORDER A: PAPER 6: CLS 
10 FOR j=l TO 17: PRINT AT 15*RND, 30*RND; "0": NEXT j 

20 PLOT 80,10: DRAW 0, -10: DRAW 85,0: DRAW 0,10 
30 INPUT "Entre com o tamanho da bolha (1-9)"; tamanho 
A0 IF tamanho < 1 OR tamanho > 9 THEN GOTO 30 
50 PLOT 80,10: DRAW OVER 1; 85,0,-(A.35+tamanho/10) 

60 PRINT AT 19,5; Vai tentar outra vez? (S/N)" 

70 IF INKEY$ = "s" OR INKEY$ = "S" THEN RUN 
80 IF INKEY$ < > "n" OR INKEY$ < > "N" THEN GOTO 70 

Algumas explicates sobre este programa 

1) Linha 10 - Imprimem-se com esta linha de instruqoes 
multiplas as 17 capsulas espaciais em posiqoes alea- 
toriamente escolhidas. 
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2) Unha 20 - Ai estao as instrugoes que "forgam" o TK 
90X a desenhar o emissor do campo de forga. 

3) Unhas 30 a 50 - Ai.5 feita a escolha (por vocS) do 
tamanho da bolha, verifica-se a sua validade (linha 
A0) e entao desenha a "bolha". 

A fungao OVER 1 e usada na linha 50 para mostrar 
que ha destruigao do campo de forga quando ele toca 
uma capsula espacial. 

4) Linhas 60 a 80 - Neste trecho espera-se pela entrada 
do proximo jogador na partida. 

Ao executar o programs deve surgir algo do tipo 
mostrado na Figura 5, 


d 



Figura 5 


Para finalizar o Capitulo "TRSS EM UM" va- 
mos desenhar algumas quadricircunferencias ou alguns 
reticu lo-c irculo_s . 

Cabe a voce ficar com o nome que gostar 

raais. 


Voce ja notou que a instru?ao DRAW permite 
desenhar um trecho ou seja um arco de circunferen- 
cia e faz isto calculando as coordenadas dos varios 


pontos do arco e entao unindo os pontos por linhas 


re tas. 
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Comumente nao se comenta isto, mas quando 
voce tornar o terceiro parametro apos a instrugao 
DRAW extremamente grande o resultado pode ser tre- 
raendamente inesperado e espetac,ular. 

Entre com o seguinte programa e atribua ao 
parametro p valores altos, 

10 INPUT p: PRINT p 

20 PLOT 127,10: DRAW 0,150,p*PI 

ou melhor, se voce quiser ver desenhos como os indi 
cados nas Figura 6a),b),c) e d) no lugar da linha 
20 entre com a nova linha 20 

20 PLOT 127,10: DRAW OVER 1; 0, 150, p*PI 

Entre os valores "interessantes"que voc£ 
deve testar indico 

P - .101 * 119 , 253, 261, 271 , 383 e 999.9 . 



■— 1 $> 



Figura 6 



(Uaptiulo 4 

Seprmtttafao 

ampltaha 


Ai vai um programa bem simplificado quelhe 
permite obter uma versao ampliada de qualquer ca- 
ractere: normal, grafico ou definido por voce esti- 
mado(a) usuario(a). 

fi obvio que nao se permite o uso das pala- 
vras-chave. 

So e posslvel dispor de quatro caracteres 
por linha, podendo-se escolher a cor deles (numero 
de 1 a 7). 

E na variavel e_ que se armazena o enderego 
de inicio, na ROM, do conjunto de caracteres, 

10 REM *** REPRESENTA(JAO AMPLIADA *** 

20 SOUND .1,13: SOUND .1,13: SOUND .7,13: SOUND .8,13: 

SOUND .7,14 

30 LET e = PEEK 23606 + 256 * PEEK 23607 

40 INPUT "Entre com a cor da tinta Q"; t: INK t 

50 INPUT "Escreva uma palavra (nao mais de 4 letras)"; p$ 
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60 FOR v = 0 TO 3 - 

70 LET f = e + CODE p$ (v+l)*8 f Note <* ue cada C 

( lmha deve receber 

80 FOR g = 0 TQ 7 \ obrigatoriamente quatro 

90 TFT h = pffv / caracteres e caso envie 

LET n PEEK (f+g) / menos complete a mesma 

100 FOR j = 0 TO 7 y c om espagos em bran co.^ 

110 IF h/2 <>INT(h/2) THEN PRINT AT 13+g, 8-vj + (v*3); 

INK t ;"IS" 

115 SOUND . 008 , t 
120 LET h = INT (h/2) 

■130 NEXT j: NEXT g: NEXT v 
140 INPUT "Quer escrever algo raais?0"; r$ 

150 POKE 23692,-1 

160 IF r$(l) = ;, S" OR r$ (1) = "s" THEN PRINT’ >>>>>>>>». 

GOTO 10 
170 STOP 


Execute e veja se sai algo deste t£po,quan 
do na linha 110 voce tiver o caractere grSfico "®" 


IS 

MflIO 
19 9 S 


Figura 7 



ffiaptbtla 5 

Slaburanbu urn 
Iftstugrama gausstatto 
t uartauUs 


Neste programs e muito importante o desem 
penho da fun§ao RND para produzir o histograma. 

Ai esta o programa 


10 DIM a(16) 


20 LET esc = .1 


30 RAND 


40 SOUND .1,12: SOUND .2,13: 


SOUND .3,14 
50 LET c - 0 
60 FOR i * 1 TO 12 
70 LET c » c+RND 
80 NEXT i 



90 LET dp “ 2: LET media * 7.5 
100 LET j«INT(l+(c-6)*dp+media) 


A variavel "esc" e utili- 
zada como um fator de es- 
cala. Quanto menor for o 
seu valor, mais numeros 
aleatorios poderao ser 
acumulados antes que o 
programa pare,porque uma 
das barras ou hastes 
atingiu o topo da tela. 
Sugiro (e nao e nome de 
japones) que voce estima- 
do(a) leitor(leitora) ten 
te outros valores e sinta 
ou melhor veja,a diferen- 
9 a 
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110 IF j <1 THEN LET j=l | 

120 IF j >1 THEN LET j=16J ^ 

130 LET a(j) - a(j) + esc 
140 IF a(j) >21 THEN STOP 
150 PRINT AT 21-a(j), 2*j-l;"a" 
160 GOTO 50 


Estas instrupoes impedem 
que o programa se "auto 
destrua" caso sejam gerados 
valores muito extremos 


Execute e veja se s,ai algo do tipo*. 



Figu.ra 8 

Caso voce queira ir anotando como vai evo- 
luindo o seu crescimento ou da altura de uma planta, 
como vai decrescer o poder aquisitivo do seu sala 
rio com o tempo, quantos sao os acertadores da lote 
ria esportiva em cada semana, etc. ai esta o progra 
ma que lhe convem... 

0 TK 90X desenhara os seus diagramas em 
seis cores distmtas de forma que pode montar uma 
cor sobre a outra para mostrar de quanto foi a va- 
riapao desde a ultima vez que ocorreu a comprovapao. 

0 TK 90X fara com que se mostre na telauma 
linha vertical (perpendicular) e uma linha de base 
(horizontal) . 


iro jpn 
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Alem disto o TK 90X Ihe perguntara ent pri- 
meiro lugar os valores que desejas utilizar e a se 
guir lhe pedira para que escolha a cor (1 a 6) ria 
qual queres que seja impresso o diagrama. 

Finalmente lhe pedira que tecles os dados 
que desejas que apare^am representados no diagrama. 

Por exemplo se voce quer representar a va- 
riasao da temperatura maxima de alguns dias consecu 
tivos e se no primeiro dia a temperatura for de 

35°C deves entrar com 35, se 'no dia seguinte a tem¬ 
peratura maxima for 28°C deves entrar com 28 etc. 

S$ em algum instante voce desejar sair do 
programa tecle uma letra e o programa voltara a lis 
ta de cores. ■ 

Podes voltar a escolher outro valor para 
que o mesmo contraste com a cor escolhida anterior- 
mente de forma que possa ver por exemplo a compara 
Qao das temperaturas das semanas anteriores ou ate 
do mesmo mes, porem no ano anterior. 

Note que as cores estao impressas acima 
das teclas dos numeros no seu TK 90X. 

Quando quiseres parar com os dados basta 
entrar com uma STRING (linha 310). 

Para parar totalmente com os dados basta 
teclar "n" ou "S" na linha 420. 

Ai vai o programa 

10 REM ** Histograma ** 

20 FOR j*0 TO 15 
30 READ d 

40 POKE USR "a M + j, d 
50 NEXT j 

60 DATA 127, 127, 127, 127, 127, 127, 127 , 127 
70 DATA 254, 254, 254, 254, 254, 254, 254 , 254 


80 INPUT."Qual e o seu valor maximo Q (multiples de 20)?";m 
90 IF m< 20 THEN PRINT PAPER 4; INK 0; AT 10,9;" 

Muito pequeno!": GOTO 80 

100 IF m > 100 THEN PRINT PAPER 3; INK 0; AT 10,9;" 

Muito alto I DODD"; GOTO 80 
110 INPUT "Qual e a cor (1-6)?□"; c 
120 IF c < 1 OR c > 6 THEN GOTO. 110 
130 CLS 

140 LET s * INT(m/20) 

150 LET p«l 
160 FOR k=l TO 19 
.170 IF s*k >9 THEN LET p=0 
130 PRINT AT 20-k, p; s*k 
190 IF k=9 THEN LET p=20 
200 NEXT k 
210 LET coluna = 1 
220 FOR i-1 TO 14 
230 LET coluna * coluna+2 
240 PRINT AT 21, coluna; i 
250 NEXT i 
260 PLOT 18,170 
270 DRAW 0,-155: DRAW 230,0 
230 SOUND .1,11: SOUND .2,12: SOUND .3,13 
290 LET coluna = 3 
300 INPUT "Qual e o valor? v$ 

310 IF v$(1) >"9" OR v$(l) <"0" THEN GOTO 410 
320 LET valor - VAL v$ 

330 IF valor >m THEN LET valor = 

340 FOR j=0 TO valor / s 
350 IF j-0 THEN GOTO 370 
360 PRINT INK c; AT 20-j, coluna 
370 NEXT j 

380 LET coluna * coluna+2 
390 IF coluna - 31 THEN GOTO 410 
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400 GOTO 300 

410 INPUT "Vai entrar com algo, mais? pi "\ r$ 
420 IF r$(l) = "N" OR r$(l) = "n" THEN STOP 
430 INPUT "Qual e a cor agora?Dc 
440 IF c <1 OR c > 6 THEN GOTO 430 
450 GOTO 290 


Entre com os seus dados e veja se obtem 
algo parecido com o que se mostra na Figura 9. 



Figura 9 


(Japttulo 6 
fazenio eslrnfo iio 
tedaim to 2H90X 


Este programa Ihe permite desenhar figuras 
na tela do aparelho de T.V. 

Ele e muito instrutivo pois lhe permite 
sentir todo o poder da instrugao PLOT e lhe dara 
muita experiencia com o sistema de coordenadas (X, 

y). 

Nao se deve deixar de citar o lindo efeito 
do INVERSE usado com a instruqao PLOT. 

0 quadro ou a figura e desenhada utilizan- 
do-se as teclas 5,6,7 e 8 para mover um pequeno cur 
sor "faiscante" ao redor da tela. 

Como um auxxlio (fundamental alias...)caso 
voce esteja procurando um desenho de muita precisao 
exibe-se no canto baixo da esquerda e isto continua 
mente a posiqao atual do cursor, isto e, as coorde¬ 
nadas do mesmo. 

0 cursor deixa uma linha preta atras de si 
a medida que sedesloca, a menos que voce mantenha 
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a tepla SHIFT aba-ixada , quando entao ele desenhara 
uma linha branca, permitindo-lhe apagar desta forma 
qualquer erro que tenha cometido. 

Caso voce tenha parado o programa com urn 
SHIFT-BREAK e notar que algo mais poderia seragre 
gado a sua obra prima nao entre com-RUN pois assim 
voce vai limpar tudo da tela. 

Em vez disto entre com o comando CONT( cont 

nue). 

Finalmente o programa neste caso foi estru 
turado como se fosse um LOOP sem fim pois o que se 
deseja e uma atividade continua e a cada passo mais 
criativa e imaginative da sua parte. 

Seria um tanto lusitano (sem mexer demais 
com os queridos descobridores...) a todo momento o 
programa lhe perguntar: 

Voce deseja continuar (S/N)? f \ 

10 LET x = 127: LET y = 88 (Si' 

20 FOR c = 0 TO 1: PLOT INVERSE c; x,y "Qj 

30 LET k = CODE INKEY$ -- j 

40 IF k >=53 AND k < =56 THEN PLOT x,y / 

50 IF k > =8 AND k <=11 THEN PLOT INVERSE l;x,y / 

60 PRINT AT 20,0; "X*"; x; ”DDD"; "y=";yJ" □□□ " / 

70 IF (k=8 OR k=53) AND x >0 THEN LET x=x-l / 

80 IF (k=9 OR k“56) AND x <255 THEN LET x=x+l / 

90 IF (k=10 OR k*54) AND y >0 THEN LET y»y-l / 

100 IF (k»ll OR k=55) AND y< 175 THEN LET y»y+l / 

110 NEXT c / 

120 GOTO 20 f 

Voce ja sabe, pois tern o meu livro o "BASIC no TK 90X" que a 
funcao ou variavel INKEYS retorna um valor STRING. 

Como precisaaos ua valor numenco a obrxgatorxo o uso da 
instruq&o CODE para podermos lidar com o movimento do cur¬ 
sor sem impressao (codigos 8,9,10 e 11)__ 
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Linha 10 —► Al estao os valores iniciais para a abscissa(x) 
e para a ordenada (y) 

Linha 20 a 110—► LOOP principal para ativar e apagar o pur¬ 
ser "piscante" 

Linha 30 —0 seu TK 9$X espera que voce aperte alguma te~ 
cla 

Linha 40 —Se uma das teclas 5,6,7 ou 8 for apertada ter- 
se-a marcada a posiqao atual do cursor em preto 

Linha 50 —Se a tecla SHIFT for pressionada juntamente com 
uma das teclas 5,6,7 ou 8 entao ter-se-a marca¬ 
da a posiqao atual do cursor em branco 

Linhas 55 e 60—^Imprime-se o valor atual das coordenadas 
do cursor. 

A linha 55 e necessaria para que na proxima vez 
seja limpo o espaqo ocupado .pelos numeros que 
representavam as coordenadas da .ultima posi 
qao 

Linhas 70 a 100 —— Ai sao calculadas as. novas coordenadas 

Linha 120—^ Volta-se para um novo "faiscamento" do cursor 

Caso voce esteja sem imaginaqao* do que deve dese^ 
nhar ai vai uma sugestao. 



Figure 10 
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Este e um programa muito util para apre- 
sentar mensagens de divulgaqao com o auxilio do ca- 
ractere grafico. 

Inicialmente o programa permite criar uia 
tela em alguma cor escolhida e com as teclas"5","6", 
"7" ou "8" pode-se controlar as direqoes. 

A tecla "1" ordena que se desenhe e com a 
tecla , ’2 ,, se manda imprimir um espaqo em branco ou 
seja interrompe-se a impressao. 

Depois que tiver desenhado tudo o que qui- 
ser na tela tecle um "c" de chega (por enquanto, pe- 
lo tsenos. . . ) e ax sim escreva a mensagem que quer di 
vulgar, nao esquecendo de escolher a linha onde quer 
que a mesma apareqa. 

Depois de ter escrito a mensagem volte ao 
menu para escolher a nova opqao. 

Voce pode apertar a tecla "4" se quiser 
"acabar" com o programa. 
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0 programa pode guardar ate 7 telas: dife- 
rentes, porSm apenas uma mensagem devido ao compri- 
mento variavel que a mesma pode ter. 

Ai vai o programa 

10 DIM t$(7,704) 

20 LET c$ = 

30 CLS 

40 POKE 23692,-1: PRINT AT 21,0; 

50 PRINT INK 1; "l-Criar uma tela nova" ,>,, "2-Apresentar a 
tela: existente" ”” "3-Alterar a mensagem" M ” "4-Pa- 
rar" 

60 INPUT k; CLS 

70 IF k < 1 OR k > 4 THEN GOTO 60 
80 IF k-4 THEN STOP 
90 IF k=3 THEN GOTO 300 

100-INPUT INK 2; 'FLASH 1; "Em que tela voce quer desenhar? 
(1-7)"; n 

110 IF n<l OR n >7 OR n<> INT n THEN GOTO 100 
120 INPUT "Qual e a cor da tinta?DQD "; t 
130 IF k=2 THEN GOTO 390 

140 PRINT INK 2; "Criar a tela usando as teclas 5,6,7 ou 8 
para controlar o cursor" 

150 PRINT * INK 1; "Use 1 paraB, 2 para espaqo em branco 
e C para chega" 

160 LET i = 11: LET c=16 
170 LET t$(n,l TO 704) = 

180 FOR z=l TO 599: NEXT z 

190 PRINT AT 0,0; INK t; t$(n); AT 2-,c; INK 1; FLASH 1; "+" 

200 LET e$ = INKEY$ : IF INKEY$ = "" THEN GOTO 200 

210 IF e$ = "1" THEN LET c$ * 

220 IF e$ = "2" THEN LET c$ * 

230 LET c - c - (e$ - "5") + (e$ - "8") 
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240 LET c = c + (c^0) ^ (c >31) 

250 LET £ ~ A- (e$ = "7") + (e$ = "6”) 

260 LET £ = £ + (it < 0) - (£>21) 

270 LET t$ (n, £*32+c+l) = c$ 

280 IE e$ = "C" OR e$ = "c" THEN GOTO 300 
290 GOTO 190 • 

300 INPUT INK 1; "Em que linha voce quer imprimir a mensa- 
gem publicitaria? (0-21)C]";££ 

310'IF££<0 OR ££>21 THEN GOTO 300 

320 SOUND 1/(££ +1), ££: SOUND l/(££ +10), ££+2 

330 INPUT INK 1; "Qual e a cor?”;cor 

340 INPUT FLASH 1; "Voce quer ver cintilando? (1 para sim e 0 
para nao)p";f 

350 SOUND 1/(f+2), f+4: SOUND l/(f+4), f+8 
360 INPUT INK 2; FLASH 1; "Entre com a sua mensagem..; f$ 
370 let*£ $ -■ "DDDooaaDODooaoonBDaaaonaGnDODDDo" + f$ + 
"DooDancionaDooqnoanoDDDaqDonociDnd" 

380 GOTO 30 

390 PRINT AT 0,0; INK t; t$(n) 

400 FOR j=l TO LEN £$ - 32 
410 SOUND .013,12 

420 PRINT AT ££ 0; INK cor; FLASH f; £$ (j TO j+31) 

430 IF INKEY$ = "c" OR INKEY$ » ”C" THEN STOP 
440 PAUSE 40 
450 NEXT j 
460 GOTO 30 



Execute o programa e veja se obtem algo do 
seguinte tlpo: 






Figura 11 
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Este e urn prograraa util principalraente pa¬ 
ra aqueles ou melhor para aquelas que tem o habito 
de efetuar pesagens do tipo quanto vai isto paradar 
certo em uma receita (aindo acho que a maior parte 
do pessoal da cozinha e constituido por pessoas de 
sexo feminino...). 

Na r.ealidade o programa que vem a seguir e 
um tipo de jogo no qual com o menor numero de tenta 
tivas e com a ajuda de um conjunto de "pesos" voce 
deve dizer quantos necessita para equilibrar uma 
balanqa. 

Ao executar o jogo em uma das suas etapas 
pode-se ter a situaqao indicada na Figura 12. 

Na tela aparece uma balanqa com um peso co 
locado no prato da esquerda. 

0 TK 90X lhe pedira que escolhas alguns en 
tre os 6 pesos que aparecem na parte inferior da te 
1 a. 
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Figura 12 

0 TK 90X ira passando por todos os pesos 
disponiveis possibilitando-lhe escolher aqueles que 
des ej as us ar. 

Quando quiseres usar um peso tecle "S" e 
em caso contrario um "N" (ou qualquer outro caractere). 

Os seus pontos ficam registrados na parte 
de cima da tela. 

10 REM ** 0 jogo da balanqa *** 

20 RAND 

30 LET c - 0 » acumula-se a 

40 LET t = 0 — ■ ■ ■ " — contam-se as tentativas 

50 CLS 

60 LET k « 25 

70 PRINT PAPER 6; INK 0; AT 0,2; "TENTATIVAS:"; t 
80 PRINT PAPER 6; INK 0; AT 0,18; "PONTOS:"; c 
90 FOR j=l TO 30 STEP 5 
100 PRINT PAPER 2; INK 0; AT 15, j; k; "g” 

110 LET k-k*2 
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120 NEXT j 
130 GOSUB 500 

140 LET tinta = INT (RND*5)+2 
150 LET tt = 0 

160 LET r = (INT(RND*63)+1)*25 

170 PRINT PAPER 4; INK 0; AT 2,0; "0 PESO A DETERMINAR E 
DeD r; "g" 

130 LET t - t+1 
190 PRINT AT 8,10; "Q.1 1 1" 

200 LET d = 0: GOSUB 700 
210 PRINT INK tinta; AT 10,10; "I 
220 LET k=25 
230 FOR j=l TO 6 

240 PRINT PAPER 4; INK 0; AT 20,2; ”Voc9 quer um peso deO"; 



k; "g?" 

250 LET r$ = INKEY$ 

260 IF r$ = '"'THEN GOTO 250 


270 IF r$ = "S" OR r$ = "s" THEN LET tt = tt+k: PRINT PAPER 

3; INK 0; AT 17, (j-l)*5+2; "l" 

280 IF r$i<> "S” AND r$ <>"s" THEN PRINT PAPER 6; 

INK 0; AT 17,(j-l)*5+2; "0" 

290 FOR z=l TO 45: NEXT Z: LET k=k*2: SOUND .018,10 
310 NEXT j 

320 PRINT INK 2; AT 3,18; "■■■O' " 

330 FOR z=l TO 45: NEXT z 
340 IF tt < r THEN GOTO 470 
350 LET d-1: GOSUB 700 
360 PRINT AT 10,10; ” ODD " 

370 PRINT AT 8,18; "ODDO" 

330 IF tt > r THEN GOTO 445 

390 LET d * 0: GOSUB 550 

400 PRINT INK tinta; AT 9,10; "■■■" 

410 PRINT INK 2; AT 9,18 ."«**0 ” 

420 SOUND .5,5: SOUND .6,6 


430 LET c-c+1 

440 GOTO 480 

445 LET d~0:. GOSUB 300 

450 PRINT INK tinta; AT 8,10; "*■«" 

460 PRINT INK 2; AT 10, IS; "□■■■" 

470 SOUND 1,-13 

480 FOR p=l TO 300: NEXT p 

490 GOTO 50 

500 PLOT 95,80 

510 DRAW 60,0 

520 PLOT 125,80 

530 DRAW 0,50 

540 CIRCLE 125,130,4 

545 RETURN 

550 PLOT OVER d; 90,130 
560 DRAW OVER d; 70,0 
570 DRAW OVER d-; 0,-30 
580 PLOT OVER d; 150,100 
590 DRAW OVER d; 20,0 
600 PLOT OVER d; 90,130 
610 DRAW OVER d; 0,-30 
620 RETURN 

700 PLOT OVER d; 90,120 
710 DRAW OVER d; 70,20 
720 DRAW OVER d; 0,-30 
730 PLOT OVER d; 150,110 
740 DRAW OVER d; 20,0 
750 PLOT OVER d; 90,90 
760 DRAW OVER d; 0,30 
770 RETURN 

800 PLOT OVER d; 90,140 
.810 DRAW OVER d; 70,-20 
820 DRAW OVER d; 0,-30 
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830 PLOT OVER d; 150,90 
840 DRAW OVER d; 20,0 
850 PLOT OVER d; 90,110 
860 DRAW OVER d; 0,30 
870 RETURN 



^ 0 . 1 .^ Por favor apos executar o programa se achar 
que o mesmo e infantil, nao lhe e permitido falar 
improperios vlsto que somar nao e todo mundo que 
consegue boje em dia e de cabeqa ou melhor com a 
cabe 5 a apenas... 

Nao esquega que este livro nera passou pela 
censura pois ele so e iraproprio para pessoas impro 


pr ias 


Mas voce e o(a) proprio(a)!!I I 



fflapttub 9 
(Ijjmmira 


Um (uma) "cientista louco" ("pirada") des- 
cobriu um liquido altamente perigoso 0 qual se nao 
for misturado em proporgao correta com a agua fara 
explodir o seu TK 90X, o que estiver nas suas proxi 
midades e como nao podia deixar de ser VOGEEEEEE... 

Voce tem entretanto a possibilidade (e su- 
ponho a capacidade... ) de impedir que isto aconte- 
5 a colocando a quantidade de agua correta que torne 
sen efeito 0 poder destruidor do fluido. 

Para isto basta que voce calcule (mental- 
mente...) quanta agua e necessaria para “desativar" 
o fluido empregando a relaqao que aparece na tela 
onde o primeiro numero corresponde no fluido e o se 
gundo a agua. 

Caso a sua resposta seja correta com apro- 
ximaqao de ate 5% do verdadeiro valor voce esta sal 
vo nesta porem se estiver fora deste intervalo ou- 
viras uma explosao.. 
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Dizem que gato(a) tem "sete vidas'- e neste 
jogo explosivo lhe sao conferidas quatro vidas,apos 
o que o jogo qulmico termina. 

Entre pois com a quantidade de agua que 
pensas ser a conveniente, tecle "ENTER" e note como 
vai caindo agua dentro do recipiente e voce nem 
abriu a torneira... 

Bern, tenha vida longa, viu!!! 

Ai vai o programa: 

10 REM ** Quimico ** 

20 RAND 

30 LET C = 0 

40 LET v = 4 

50 LET f - INT(RND*5)+1 

60 LET a = INT(RND*7)+2 

70 PRINT PAPER 2; INK 0; AT 6,3; "Prepare^se, pois voce tem;" 
80 PRINT PAPER 3; INK 0; AT 8,1; f; ”□ partes de fluido por 
□ a;"Opartes de agua". 

90 PAUSE 300 
100 CLS 

110 PRINT PAPER 6; INK 0; AT 0,4; "vidas v; 

120 PRINT PAPER 6; INK 0; AT 0,19; "'pontosiO ";c 

130 PRINT PAPER 2; INK 0; AT 3,10; "A RELAQAO fi DE:D"; f; 

: ;a 

140 PLOT 110,90 

150 DRAW 0,-60 

160 DRAW 35,0 

170 DRAW 0,60 

180 LET r = INT(RND*25)+1 

190 PRINT PAPER 4; INK 0; AT 6,6; "Tens □ "; r; " □ litros 
de fluido" 

200 PRINT PAPER 4; INK 0; AT 8,2; "Quanta agua voce vai 
usar?" 
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210 PRINT INK 2; AT 16,14; "■MB" / "9", 
220 PRINT INK 2; AT 17,14; "SIU" \ll a 
2 30 INPUT resposta 

240 PRINT PAPER 4; INK 0; AT 20,8; resposta; 


fcAPS shift! + tecla\ 
"9", quatro vezes a] 
tecla "8" e novaroen J 


te a tecla "9" 


litros de 



250 LET t = (r/f)*a 
260 FOR j=l TO 4 
270 FOR k=10 TO 15 
280 PRINT INK 5; AT k,16; 

290 PAUSE 7 
300 PRINT AT k,16; 

310 SOUND ,15,k 
320 NEXT k 

330 FOR j=i5 TO 12 STEP -1 
340 PRINT INK 5; AT j,14; 

350 NEXT j 
360 PAUSE 150- 

370 IF resposta > t - t/20 AND resposta < t + t/20 
THEN GOTO 490 
380 FOR j-6 TO 0 STEP -1 
390 PAPER j 

400 SOUND .25, j*2: SOUND .3,j*3 
410 CLS 
420 NEXT j 

430 PRINT INK 7; AT 6,0: "Voce tern agora uma vida a 


440 PAUSE 300 
450 LET v=v-l 
460 PAPER 7 

470 IF v=0 THEN GOTO 570 
480 GOTO 100 

490 SOUND .3,7: SOUND .5,10: SOUND .7,12 

500 FOR j=12 TO 17 

510 PRINT INK 3; AT k,14; 
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520 NEXT j 

530 PRINT PAPER 4; INK 0; AT 20,3; "Fluido diluido corre£a~ 
mente" 

540 LET c = c+1 
550 PAUSE 350 
560 CLS: GOTO 50 
570 CLS 

580 PRINT PAPER 3; INK 0; AT 9.,3; • "Perdes-te todas as suaa 
vidas" 

590 PRINT PAPER 3; INK 0; AT 12,6; "A sua pontuaqao final 
e □ c 
600 STOP 

No decorrer do jogo uma pos-sJvel tela pode 




Figura 13 
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Neste capitulo temos um programa que impr' 
me uma tabela e tambem o grafico mqstrando os poss 
veis resultados do lan^amento simultaneo de tres d 
dos quanto a soma de pontos obtidos. 

Alias, uma das coisas mais "elementares"ao 
se iniciar um curso de teoria das probabilidades e 
este tipo de discussao, visto que este raodelo mate- 
matico permite definir com simplicidade o que vem 
a ser eventos mutuamente exclusives, independences, 
dependentes, etc. 

0 programa indica todos os casos quanto a 
soma de pontos, enumera os resultados favoraveis e 
imprime a probabilidade de cada um. 


Alem disto e apresentado na tela o grafico 
da curva da distribui^ao de probabilidades (veja a 
Figura 14). 


■rll VHI (VI 
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Figura 14 

Ai vai o pequeno, porem iraportante progra 

ma. 

10 LET j=RND*4+3 
20 FOR s=3 TO 18 

30 PRINT AT s,20; PAPER j; "□□□□□□ODODOD" 

40 NEXT s 
50 DIM s (18) 

60 PRINT AT 1,0; "SOMA”; TAB 5; "CASOS"; TAB 12; "PROB."; 

TAB 21; "GR&FICO" 

70 FOR b=l TO 6 

80 FOR c=l TO 6 

90 FOR d=l TO 6 

100 LET e=b+c+d 

110 LET s(e) = s(e)+l 

120 NEXT d: NEXT c: NEXT b 

130 FOR s*3 TO 18 

140 PRINT AT s,0; s; TAB 5; s(s); TAB 12; ”1/”; INT 
<216/s(s>) 

150 PLOT INK 0; 2*s+185, 50+3*s(s) 

160 NEXT s 


Depois de um "programinha" deste (sera que 
existe gente que e fanatico(a) por matematica, mais 
especificamente pela teoria das probabilidades?) so 
um pouco de musica classica para acalmar aquele(a) 
que se transtornou.-. . 

Apesar de que a "onda" atual e enaltecer a 
Mozart (vide o sucesso de "Amadeus") o seu TK 90X 
ira homenagear atraves do programa aqui apresentado 
a Ludwig Von Beethoven, compositor alemao nascido 
em Bonn em 1770 e falecido era Viena era 1827. 

Beethoven foi autor de trinta sonatas para 
piano, de 2 essete quartetos, nove sinfonias, cinco 
concertos para piano e um para violino. 

Alem disto e tambem o autor de aberturas 
da opera Fidelio, da Missa solemnis'(missa em re), 
obras de profundeza de sentiraentos e de um poder de 
expressao artxstica incomparaveis. 

Beethoven teve existencia -muitas vezes di- 
. flcil e foi, cedo, atacado de surdez. 

Este programa e recomendavel a todos que 
gostam de musica classica e principalmente para 

aqueles que sejam seguidores do "ilustre surdo". 

Alem do que, nao ha quern nao goste de ser 
despertado(a) ou estar envolvido(a) por uma melo- 
dia como a que se vai ouvir!!! 

10 DIM s(122) 

20 FOR j=l TO 122 
30. READ s(j) 

40 NEXT j 
50 FOR j=l TO 122 
60 SOUND ,22,s(j) 

70 NEXT j 
80 GOTO 50 




40 


100 DATA 16,15,16,15,16,11,14,12,109,04,09,00,04,09,11, 
04,08,04,08 

110 DATA 11,12,04,09,04 

120 DATA 16,15,16,15,16,11,14,12,09,;04,09,00,04,09,11, 
04,08,04,12 

130 DATA 11,09,04,09,11,12,14,16,07,12,07,17,16,14,07, 
11,07,16,14 

140 DATA 12,4,9,4,14,12,11,4,8,4,3,11,16,16,15,16,15,16 : 

11,14,12,9,4,9,0,4,9,11,4,8,4,8,11,12,4,9,4 
150 DATA 16,15,16,15,16,11,14,12,9,4,9,0,4,9,11,4,8,4, , 
12,11,9,4,9 



ffiaptiula U 
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x 

(Celsius 

Neste programa exibe-se a conversao de 

graus centigrados ou Celsius para graus Fahrenheit 
e vice-versa tanto analiticamente como graficamen- 
te cabendo a voce uma das escolhas <ou ambas. 

A cada resultado numerico o seu TK 90X a- 
ciona o seu sistema de "ruido" para nao dizer os 
seus recursos sonoros. 

Note o recurso que lhe permite o TK 90X de 
criar o caractere " * " para indicar os graus (li- 
nha 160). 

10 REM *** Fahrenheit X Celsius*** 

20 PAPER 2: INK 5: BORDER 1 
30 FOR j-0 TO 7: READ codigo 
40 POKE USR "a" + j, codigo: NEXT j 
50 DATA 64,160,64,0,0,0,0,0 

60 REM * Para obter o caractere da linha 160 escreva "a” etn 
mode grafico * 



42 


70 PRINT "Fa$a. a sua escolha" 

S0 PRINT: PRINT 

90 PRINT "Entre com 1 para a conversao centigrados para 
Fahrenheit" 

100 PRINT 

110 PRINT "Entre com 2 para a conversao Fahrenheit para 
centigrados" 

120 INPUT n 

130 IF n=l THEN GOTO 180 

135 IF n < >2 THEN GOTO 120 

140 INPUT "Entre com os graus Fahrenheit"; f 

150 LET ,c»5*(f-32)/9 

160 PRINT f; " •> Fahrenheit » c; " ^centigrados" 

170 GOTO 210 

180 INPUT "Entre com os graus centigrados" ;c 
190 LET f=1.8*c+32 

200 PRINT c; " •>centigrados = ";f;” ‘^Fahrenheit" 

210 PRINT: PRINT 

220 PRINT "Voce quer fazer alguma outra conversao? (S/N)" 

230 INPUT r$ 

240 IF r$ = "s" OR r$ - "S" THEN GOTO 80 

250 SOUND 2,20: SOUND 1.5,15: SOUND 1,10: SOUND .5,5 

260 CLS 

270 PRINT FLASH 1; "Voce agora vai apreciar uma interessante 
conversao grafica’ com a escala Fahrenheit na vertical e 
a escala Celsius na horizontal" 

280 REM ** Ai vai o grafico de conversao que evidentemente e 
aproximado 

290 FOR f - 30 TO 220 STEP 10 
300 IF f <100 THEN PRINT 
310 PRINT f; 

320 FOR c-1 TO 5*(f-32)/45 

330 IF c/6-l-INT (c/6-1) THEN LET t-0 

340 LET t - t+1 
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350 PRINT INK t; 

360 NEXT c 

370 LET t=0: PRINT 

380 NEXT f 

390 PRINT TAB 3; "102030405060708090100" 

400 FOR j=10 TO 20: SOUND ,l,j 
410 SOUND 1,20-j:'NEXT j 
420 STOP 

Ao executar a 2? parte do programa (linhas 
280 a -410) voce.deve obter o seguinte desenho: 


30 

4.0 

30 

50 ■ H ■ 

70 ■ ■ 

3 0 «««l« 

90 

iea«■■■••« 
U0BriMMa 

ISO mm mmmmmmm 

130 

14-0 mmmmmmmmmmmm 

1?0 

160 ■■■■■■■■•■■■»• 

180 

190 

■200 ....•■it........ 

... 


1030304-05080708090100 


Figura 15 
















CapthtUr 13 
Amipiatm 


Vamos executar um programa que permita mo- 
vimentar o ae'roplano da Figura 16 da esquerda para 
a 'direita da ‘tela. 



( 50 , 80 ) 


Figura, 16 
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Vai se desenhar a proxima posiqao antes de 
apagar a imediatamente anterior. 

Ao teclar e executar o programa que vein a 
seguir voce vai se convencer de que a animaqao con 
seguida com programasao em linguagem BASIC ohde se 
utiliza fundamentalmente a instruqao DRAW e bastan 
te lenta para que.se pos.sa dizer que temos realraen- 
te um movimento. 

Para que se possa "animar" figuras do tama 
nho da indicada na Figura 16 a soluqao adequada S o 

uso de linguagem de maquina. 

.Alias, o meu filho Victor promete para bre 
ve um livro sobre o assunto... 

5 REM *** Movimento do aeroplano *** 

10 PAPER 7: INK 1:. BORDER 7 
20 FOR j=120 TO 240 STEP 2 
30 PLOT j, 100: GOSUB 100 
43 CLS 

45 PLOT j,100: GOSUB 100 
47 SOUND 0.2,-j/60 
50 NEXT j 
5-3 INK 6*RND 

55 FOR Z=1 TO 399: NEXT Z 
60 CLS 
70 GOTO 20 
100 DRAW -20,1V 
110 DRAW -10,-2 
120 DRAW -40,13 
130 DRAW 23,-14 
140. DRAW 17,1 
150 PLOT' j-47,108 
160 DRAW -28,-3 
170 DRAW -9,16 




46 


180 DRAW, -6,-21 
190 DRAW 43,-2 
200 DRAW -23,-18 
210 DRAW 35,13 
220 DRAW 25,1 
230 DRAW 10,6 
240 RETURN 

Se voce gostou deste programa escolha um 
sistema de referenda adequado e faga se mover de 
ciraa para baixo e vice-versa o seguinte helicoptero 
(Figura 17). 



S natural que nao espero que o seu helico£ 
tero seja tao "lindo" como o da Figura. 

Maos a obra, veja se consegue istoll 


(ttapttula 13 
Sate eeanamtca 


Este e um programa de aplicagao comercial 
no qual se pode calcular o lote economico a enco- 
mendar para se efetuar a reposigao de estoque ou se 
ja e a quantidade de unidades de um certo artigo 
que tornam minimo o custo global levando-se em con- 
ta apenas o custo de manutengao do estoque e o cus¬ 
to do pedido que implica entre outras coisas em pa- 
gar o transporte. 

0 seu TK 90X lhe pedira a demanda para um 
periodo de planejamento, o nuraero que corresponde 
ao codigo de um artigo o prego unitario do mesmo, o 
nome do seu fornecedor e o custo de um pedido. 


tirar muitas duvidas sobre o assunto 
consulte o nosso livro Pesquisa Operacional - vol.l 
ou entao Aplicagoes de Pesquisa Operacional -vol.l. 
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Ai vai o programa: 

5 PAPER 7: INK 1: BORDER 7 
10 REM d - demanda para o horizonte de planejamento 
20 REM r = codigo do artigo 
30 REM C = prego unitario do artigo 
40 REM f$ /= nome do fornacedor 
50 REM k = custo de um pedido 

60 REM h = custo de estocagem de um artigo por periodo 
70 REM h' = .20*C (formula adotada) 

80 INPUT "Entre com a sua demanda";d 
90 INPUT <! Entre com o codigo do artigo" ;r 
100 INPUT "Entre com o prego unitario do artigo";C 
110 INPUT "Entre com o nome do fornecedor";f$ 

120 INPUT "Entre com o custo do pedido"; k 
130 REM ** Calculo do lote economico** 

140 LET h = .2*C 

150 LET y = SQR(2*k*d/h.): LET y = INT(y+.5) 

160 PRINT: PRINT 

170 PRINT TAB 5; "Voce deve pedir deD";f$ 

180 PRINT: PRINT 
190 FOR z=l TO 32 
200 PRINT 
210 NEXT z 

220 PRINT TAB 3; y;"Qunidades do artigo#";r 
230 FOR z~l TO 32 
240 PRINT 
250 NEXT z 

260 LET custo=»SQR(2*k*h*D): LET custo=INT(100*custo+.5)/100 
270 PRINT "0 custo destes pedidos para o horizonte de demanda 
d ="; d; "Dartigos e:" 

280 PRINT 

290 PRINT TAB 10; "custo=";custo 
300 PRINT 



310 INPUT "Voce quer ver a representagao grafica do seu 
problema de estoque (S/N)?"; r$ 

320 IF r$ = "s" OR r$ * "S" THEN CLS: GOTO 340 
330 STOP 

340 REM ** Ai vai a coristrugao das curvas de custo 
345 LET a=l: LET b=y+30 
350 FOR j=a TO b ^ 

360 PLOT 5*j ,k*d/(60*j ) 

370 PLOT 5*j,h*j/120 
380 PLOT 5*j, 1/60*(k*d/j+h*j/2) 

390 NEXT j 

400 PLOT 0,175; DRAW 0,^175: DRAW 255,0 
410 FOR k=l TO 10 
420 SOUND .2,11 
430 NEXT.k 
440 GOTO 330 


Execute e veja se obtem um grafico do se- 



este 60 e um fator 
de escala que o ca- 
ro(a) leitor (leito 
ra) pode mudar caso 
seja necessario _ 


Figura 18 





Qkptiultf 14 
(Hlfapfu tttextam* 


Quern e que nao fica fascinado quando um 
micro Ihe consegue uma repres enta^ao a tres dimen- 
s oes ? 

Desconheqo... 

£ muito simples, em certos casos,obter re- 
presentaqoes tridimensionais quando se tem as fun- 
<joes raatematicas. 

£ o caso deste programa no qual se repre- 
senta a funtjao 



onde r e a distancia do centro do piano X-Y ate o 
ponto que se esta desenhando. 

Embora o programa seja rel ativamente pe- 
queno p.ara entrar no TK 90X esteja ciente que vai 
levar quase meia hora para que voce veja o que esta 
mostrado na Figura 19. 
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Figura 19 

10 FOR x=40 TO 215 
20 LET max » 999: LET min =■ 0 
30 FOR y - 16 TO 144 STEP 4 

40 LET r=SQR((x-127)*(x-127)+(y-80)*(y^0))/15 
50 LET z=INT(y+90*EXP(^r/3)*cosr) 

60 IF z< max OR z > rain THEN PLOT x,z 
70 IF zcmax THEN LET max = z 
80 IF z >min THEN LET min = z 
90 NEXT y 
100 NEXT x 

Al vao algumas explicates: 

Linhas 10 a 100 —*■ £ o "LOOP" para todos os pontos 
com x variando de 40 ate 215. 

Linha .20 As variaveis "max" e "min" sao utilizadas 
para nao permitir representa?oes fora dos 
limites. 

Linhas 30 a 90 —•» LOOP com passo 4 para a variavel 

y de 16 ate 144. 
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Linhas 40 e 50 —»• Calcula-se a altura na qual de- 
ve-se representar o ponto. 

Linha 60 —*• "Desenha-se" desde que nao se esteja fo 
ra dos limites. 

Linhas 70 e 80 —*• Atualizam-se os valores das "va- 
riaveis" max e min ou seja dos pontos 
mais alto e mais baixo para esta coorde 
nada x. 

Bern, execute agora o programa, mas tenha 
bastante.paciencia... 

Ninguem e de ferro, nao e? 
a Eu s ei disso! l ! 

£ justamente por isto voce agora vai ter 
urn pouco de diversao associada a uma interessante 
r epres entaqao gjrafica na tela. 

Nada mais merecido para quern espera tanto 
para ver um "sombrero". Seja porem bem dinamico no 



0 intuito do jogo e fazer com que uma co¬ 
bra sinuosa e sua amiga (por incrivel que possa pa- 
recer...) consiga passar entre um conjunto de trian 
gulos . 

Caso a cobra toque em algum destes trian- 
gulos com a sua cabeqa recebera um ferimento mortal 
e com isto voce perde a sua amiga e o jogo termi- 
na. . . 

Como fazer para nao matar a sua amiga? 

Bem, voce percebera logo que a cobra se 
desloca para a esquerda sem a necessidade de nenhum 
comando (ate parece uma cobra politica...) porem 
voce pode fazer com que ela va para a direita pres 
sionando a tecla "8". 
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Bem divirta-se agora e espero que consiga 
marear mais que 1000 pontos... 

10 REM *** A cobra nos triangulos *** 

20 GOSUB 310: LET recorde = 0 
30 GOSUB 270 
40 PRINT AT 9, c; 

50 LET c « c+2* (INKEY$ = "8" AND v<29) 

60 IF c > 0 THEN LET c = c-1 
70 IF SCREEN$(10,c) = "" T HEN GOTO 200 
80 PRINT AT 9,c; INK 6; " A"; AT 10, c; 

90 PRINT AT 21,0; 

100 PRINT TAB INT(RN] 

110 POKE 23692,255 
120 LET p=p+l: PRINT 
130 GOTO 40 

200 PRINT AT 0,0; OVER 1; PAPER 8; INK 2; a$(l) 

210 PRINT AT 1,10; FLASH 1; "0 jogo acabou" 

220 PRINT AT 6,5; "Voce obteve:"; p; "D pontos" 

230 IF p >recorde THEN LET recorde = p 
240 PRINT AT 8,3; "Seu recorde ate agora recorde; 

"□ pontos" 

250 INPUT "AperteD"; PAPER 1; "ENTER"; PAPER 0;"Qpara 
jogar de novoO"; LINE r$: GOTO 30 
260 STOP 

270 BORDER 0: PAPER 0: INK 7: CLS: LET v=10: LET c=15 
280 LET p=»0: RAND-. 

290 DIM a$(l,704) 

300 RETURN 

310 FOR j« USR "a" TO USR "c" + 7 
320 READ usuario: POKE j, usuario 
330 NEXT j 
340 RETURN 






54 


350 DATA 255, 126, 126, 60, 60, 24, 20, 0 
360 DATA 0, 99, 119, 127, 62, 23, 0, 0 
370 DATA 99, 119, 73, 73, 127, 62, 28, 0 



itorttmo 


Este programs ilustra muito o uso de subro 
tinas quando uma operaqao similar ou geralmente a 
u£sma e nece'ssaria mais doque uma vez em um progra 
ma. 

Este programa se baseia na teoria de que 
os seus ciclos emotivo t flsico e inteleotual seguem 
um padrao regular de periodos 28, 23 e 33 dias res 
pectivamente a partir da data.do seu nascimento. 

0 programa "BIORlTMO" permite que os ■* al~ 
tos e baixos" dessas tres curvas (veja a Figura 20) 
sejam representados para um periodo de 4 semanas 
centrado era qualquer data que voce especificar. 

Diz-se que os dias nos quais uma curva es- 
ta cruzando a linha central sao cnticos . 

Pode ate "pintar" para voce, que atraves 
de um estudo cuidadoso deste tipo de grafico algo 
seja revelado sobre o seu comportamento ou talvez 
mesrao uma forma razoavel de prognosticar o seu futu 
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mesmo uma forma razoavel de prognosticar o seu futu 
r o. .. 

Como alerta para seus futures programas co 
loridos e para lhe pqupar experimenta§ao inutil 
anote que comuraente e bom ter um fundo preto e na 
maior parte dos casos as cores magenta (lilas), ver 
de, ciano e amarela dao desenhos melhores que com 
as cores azul ou vermelha-. 

Tambem linhas diagonals muito finas podem 
provocar efeitos muito esquisitos e neste programa 
as curva? foram desenhadas com 3 pixeis de largura 
para evitar este problema!!! 

Quando voce estiver executando este progra 
ma percebera que toda vez que uma linha curva esti¬ 
ver sendo desenhada per to de uma outra linha curva 
desenhada anteriormente de cor diferente entao par¬ 
te da linha curva antiga mudara para a mesma cor 
que tern a linha curva nova. 

Isto realmente e uma pequena limita$ao do 
TK 90X visto que ele so pode ter duas cores papel 
(PAPER) e tinta (INK) em qualquer casela para ca- 
ractere. 

Este programa se utiliza de duas subroti- 
nas uma come$ando na linha 400 e terminando na li¬ 
nha 490 e a outra comeqando na linha 500 e terminan 
do na linha 530. 

A primeira (de 400 a 490) faz a analise da 
data em que voce nasceu e a outra desenha as curvas 
senoidais que correspondem ao seu bioritmo. 


Ai vai o programa: 
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10 PAPER 7: INK 0: BORDER 7: INVERSE 0: OVER 0: PLASH 0: CLS 
20 PRINT AT 5,11; INK 3; "BIORITMO" 

25 INPUT "Qual e o seu nome?"; LINE n$ 

30 PRINT AT 8,0; "Como vaiD"; n$; AT 10,0; "Qual e a data 
do seu nascimento?" 

.40 GOSUB 400 

50 PRINT AT 11.19; d$: LET.b$ = d$; LET z«x 

60 PRINT AT 12,0;, "Qual e a data de interesse? □ GOSUB 400 
70 PRINT AT 13,17; "pd"; d$: LET dia » x-* 

80 INK 3: PRINT AT 15,0; "Nesta data” 

90'PRINT "Voce estara □ ,, ;dia; ,, ndiaa max a velho," 

100 PRINT "terS comido D"; 3*dia; "0 vezes” 

110 PRINT "e tera dormido (aproximadamente)" 

120 PRINT FLASH 1 ;TAB 15;lNT<S^d£a/1000) Dmilhares de boras" 
130 INPUT "Aperte a tecla ENTER se voce quer o seu grafico 
LINE e$ 

140 PAPER 0: INK 6: BORDER 0: CLS 

150 PRINT TAB 5; "GRAFICO DO SEU BIORITMO’! 

160 PRINT TAB 15 - LEN n$/2; n$ 

170 PRINT TAB 12 - LEN b$/2; "riascido emD"; b$ 

180 FOR i=l TO 255 STEP 9: PLOT 1,73: DRAW 0,3: NEXT i 
190 FOR j=l TO 255 STEP 63: PLOT j,71: DRAW 0,6: NEXT j 
200 PLOT 127,10: DRAW 0,128 

210 PRINT AT 21,0; ”-2 semanas”; TAB 22; :"+2 semanas" 

220 PRINT AT 21,16 - LEN d$/2; d$ 

230 INK 3: PRINT AT 3,0; "EM0TIV0": LET c=23: GOSUB 500 
240 INK 4: PRINT AT 3,10; "FISICO": LETc=23: GOSUB 500 
250 INK 5: PRINT AT 3,21; "INTELECTUAL": LETc«33: GOSUB 500 
260 PAPER 7: INK 0: BORDER 7 
2 70 FOR j=«l TO 21 STEP 3 
230 SOUND j/20,j 
290 NEXT j 

300 FOR j=21 TO 1 STEP -3 
310 SOUND j/20,-j 
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320 NEXT j 
330 STOP 

400 DATA 0,31,28,31,30,31,30,31,31,30,31,30,31 
410 INPUT "Qual e o ano?D"; ano 
415 LET x = 365*ano + INT(ano/4) - INT(ano/l00) 

420 INPUT "Qual e o mes (1-12) ?□"; mes 
425 IF mes < 1 OR mes-> 12 THEN GOTO 420 
430 RESTORE 400 
440 FOR j=l TO mes 
445 READ v: LET x*x+v: NEXT j 
450 LET l = ano - 4*INT(ano/'4.) 

455 IF £ = 0 AND mes > 2 THEN LET x=x+l 
460 READ v 

465 IF £ - 0 AND mes = 2 THEN LET v = 29 
470 INPUT "Em que dia (1-31)?P"; dia 
475 IF dia < 1 OR dia>v THEN GOTO 470 
480 LET x=x+d 

435 LET d$ » STR$ dia+'V" + STR$ mes +"/" + STR$ ano 
490 RETURN 

500 FOR k“0 TO 253: LET p « dia - 14+k/9 
510 PLOT k, 74+60*SIN(2*PI*p/c): DRAW 2,0 
520 NEXT k 
530 RETURN 

Algumas explicagoes sobre o programa 

1) Linhas 10 ate 70 —Pede-se ai a data do seu nas 
cimento e a data atual, usando a subrotina que 

comega na linha 400. 

Calcula-se o numero de dias (d) entre as 
duas datas e armazena-se nas STRINGS b$ e d$ as 
duas datas. 

E interessante destacar o efeito da instru 
gao LINE n$ (linha 25). 


A instrugao LINE e usada nos comandos 
INPUT ou SAVE. 

Ao se usar a instrugao LINE sao omitidas 
as aspas durante a introdugao da STRING porem 
consideram-se as eventuais aspas do texto. 

Quando se usa LINE era conjunto.com SAVE 
o programa e executado automaticamente a partir 
da linha determinada apos 6 LINE. 

2) Linhas 80 ate 120 .—Sao impresses ai algumas in 
formagoes que talvez voce identifique como inte- 
ressantes. .. 

3) Linha 130—•* Ai o TK 90X espera que voce lhe de 
uma ordem para mostrar-lhe o grafico do seu "bio 
rltmo". 

4) Linhas 140 a.te 220 —► Com este trecho sao im¬ 
presses o cabegalho, urn sistema de referencia. 

5) .Linhas 2 30 ate 250—►Desenham-se devido a este 

trecho as tres curvas usando para isto a subroti 
na (500-530). 

6) Linhas 260 ate 330 —Restaura-se as cores do 
papel (PAPER), da tinta (INK) e daborda (BORDER) 
como cortesia para o(a) proximo(a) usuario(a). 

Porem voce deve aguentar um pouco de ruido 

7) Linha 485 —»Ai aparece uma concatenagao efetuada 
com o auxilio da instrugao STR$ que transforma 
um argumento numerico em uma STRING. 

Execute o programa e veja se obtem algo do 

tipo mostrado na Figura 21. 






(Eapttulo 16 

Sepmeittapaa ii£ 
unta funpac 

Este programa permite que o TK 90X faqa o 
grafico da funqao definida por voce estimado(a) 
usuario(a). 

Cabe a voce escolher os limites entre os 
quais deseja desenhar a equaqao. 

Uma vez ecsecutado, isto e apos o RUN,o pro 
grama lhe perguntara a equaqao (como funqao de x) 
que voce quer que apare$a na tela. 

Nao ha condiqao neste programa de verifi- 
car se a fun$ao que voce introduziu esta correta 
por isto caro(a) leitor (leitora) tenha um cuidado 
extremo para nao introduzir caracteres ilegais ou 
incorretos, falta de parenteses, etc. 

0(A) usuario(a) deve teclar depois os limi 
tes minimo e maximo do valor de x (abscissa) que 
des ej a. 

0 programa tambem lhe perguntara pelo va¬ 
lor das assintotas, caso existara. 
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Voce sabe o que e uma assintota? 
n5o:?: 

Al vai a respostal 

Uma assintota e o valor de x para o qual 
a funqao toma um valor igual a (infinito). 

E o caso tlpico da fun?ao y * log x para 
x = 0 quando y vale ou melhor tende a -oo . 

0 mesmo ocorre com y = —-y para x = 1. 
ou ainda com 


y = tg x para x = j , -£ 


(2k+l)ir 
- 2 - , 


Se a fun$ao escolhida pelo(a) usuario(a) 
tem uma ou mais assintotas o programa perguntara pe 
la tolerancia no calculo para desta forma se evitar 
o calculo do valor da funqao para aqueles valores 
de x que estao proximos das;asslntotas, o que ine- 
vitavelmente aconteceria se a tolerancia fosse zero 
( 0 ). 

Em outras palavras, se exi.ste.-uma assinto¬ 
ta em x*2 e a tolerancia que voce introduzir for 
0,01 o programa nao calculara os valores da fun^ao 
para x no intervale de 1,99 a 2,01. 

0 programa calcula afungao para 211 valo¬ 
res de x dentro do intervalo definido, escolhendo 
os liraites convenientes para o desenho dos eixos 
coordenados (x e y)« 

As subrotinas que determinant os valores 
dentro de cada intervalo (linhas 580 a 710) utili- 
zam um LOOP 5 vezes consecutivas, uma vez para ca¬ 
da intervalo. 

0 valor maximo calculado no LOOP e um pou- 
co maior que o maximo requerido, devido a necessida 
de de que os erros acumulados devido ao arredonda- 


mento nao faqam terminar o desenho do quarto inter¬ 
valo dentro do espaqo -do quinto intervalo. 

Analise a seguinte subrotina que ilustra 
o que ocorreria em caso contrario 

10 INPUT l> 

20 FOR j =0 TO N STEP N/.4 
30 PRINT j 
40 NEXT j 

Se o valor de N com o qual voce entrar for 
N = 2,01 os resultados impressos no programa serao: 

0; 0,5025; 1,005; 1,5075; 2,010. 

Ja se voce entrar com o valor de N = 2.03 
entao o programa escrevera: 

0; 0,5075; 1,0150; 1,5225 

Neste segundo caso so estao escritos 4 re¬ 
sultados porque os erros de arredondamento se acumu 
lam no valor de STEP (incremento), agregando-se ao 
valor da variavel j em cada etapa. 

Depois de desenhar o grafico, o programa 
pede ao(a)’ usuario(a) para introduzir as "coordena 
das” para o comando PRINT AT,utilizado para escre- 
ver a expressao matematica cujo grafico voce esta 
vendo na tela (linha 790). 

Caso voce nao esteja satisfeito com a posi 
qao escolhida pode mudar a mesma simplesmente escre 
vendo por cima da propria atraves da utiliza^ao su- 
cessiva de OVER 1 (linha 820). 

Insistir em um unico assunto durante muito 
tempo pode sugerir a voce respeitado(a) leitor(lei- 
tora) falta de imaginasao de nossa parte ou seja 
que estou o(a) considerando com poucos neuronios. 
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Vamos entao direto ao programa que o res to 
das duvidas serao tiradas por voce mesmo meu(minha) 
caro(a)... 


10 PRINT TAB 5; "DESENHO DE UMA FUN(JAO” 

20 PRINT: PRINT 
30 PRINT "Entre com a fungao" 

40 INPUT f$: PRINT,, "A fungSo e:"; f$ 

50 PRINT,, "Entre com os valores minimo e 
maximo para poder representar a f(x)" 

60 PRINT TAB 0; "xmin = INPUT xi: PRINT xi 
70 PRINT TAB 0; "xmax= INPUT xf: PRINT xf 

85 INPUT as: IF as<0 THEN SOUND 1,13: GOTO 80 
80 PRINT,, "Introduza o numero de assintotas" 

90 IF as = 0 THEN GOTO 165 
100 DIM a(as) 

110 PRINT,, "Introduza os valores de x para cada assintota 
pela ordem" 

120 FOR j=l TO as 
130 INPUT a(j) 

140 NEXT j 

150 PRINT,, "Introduza a tolerancia permitida para a(s) 
assintota(s), por exemplo 0.01" 

160 INPUT tol: IF tol<0 THEN SOUND 1,11: SOUND 1,12: SOUND 
1,13: GOTO 160 

165 PAPER 5: INK 1: BORDER 1 

170 PRINT AT 21,2-; FLASH 1; "Estou fazendo os calcylos!?!" 
180 DIM x(211): DIM y(211) 

190 LET i=l 

200 FOR x»xi TO xf STEP (xf-xi)/210 
210 IF as - 0 THEN GOTO 250 
220 FOR j-i TO as 

230 IF ABS(x-a(j))< tol THEN GOTO 280 

240 NEXT j 

250 LET x(i) - x 



260 LET y(i) - VAL f$ 

270 LET i=i+I 
280 NEXT x 
290 LET n=i-l 
300 LET yi = y(l) 

310 LET yf = y(l) 

320 FOR i=l TO n 

330 IF yi >y(i) THEN LET yi = y(i) 
340 IF yf <y(i) THEN LET yf ='y(i) 
350 NEXT i 

360 LET yi = yi * .99 
370 LET yf = yf * 1.01 
330 CLS 

390 PAPER 4: INK 1: BORDER 3 
400 LET x=35: LET y=ll 
410 DRAW INVERSE 1; OVER 1; x,y 
420 FOR k=l TO 4 
430 DRAW 0,41 
440 DRAW -3,0 
450 DRAW 3,0 
460 NEXT k : 

470 DRAW 0,-164 
430 DRAW -3,0 
490 DRAW 3,0 
500 DRAW 0,-3 
510 DRAW 0,3 
520 FOR k=l TO 4 
530 DRAW 55,0 
540 DRAW 0,-3. 

550 DRAW 0,3 
560 NEXT k 
570 DRAW -228,0 
580 LET a-4 
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590 FOR z=xi TO xf STEP (xf-xi)/4 
600 1ET z$ = STR$ z 

6X0 IF LEN z$ >4 THEN LET z$ = z$(TO 4) 

620 IF a = 31 THEN LET a - 32 - LEN z$ 

630 PRINT AT 21,a; z$ 

640 LET a - a+6 + (a >9) 

650 NEXT z 
660 LET a - 20 

670 FOR t=yi TO 1.01 * yf STEP (yf-yi)/4 
680 LET z$ = STR$ t + ** fTl" 

690 PRINT AT ,a,0; z$(TO 4) 

700 LET a = a-5 
710 NEXT t 
720 FOR i = 1 TO n 

730 LET x = 35 + 210 * (x(i)-xi)/(xf-xi) 

740 LET y = 12 + 163 * (y(i) - yi)/(yf-yi) 

750 PLOT x,y 
760 NEXT i 

770 INPUT "De a posigao do tStulo ,, ;it;"d n ;c 

780 IF £>0 OR l >21 OR c<0 OR c > 31 THEN SOUND 1,12: 

GOTO 720 
785 PAPER 5 

790 PRINT OVER 1; AT Jt ,c; f$ 

800 INPUT "Esta correto? (S/N) M ; r$ 

810 IF r$="S" THEN SOUND 1,22: STOP 

820 IF r$ = "N” THEN PRINT OVER 1; AT Jt,c; f$: GOTO 770 
830 IF r$ <> "S" THEN GOTO 800 
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(Sapttala 17 
Espirais 


'ESPIRAIS" g um programa para tornar exponen 
cial a sua habilidade, o seu talento artistico e o 
seu genio criativo meu(minha) caro(a) amigo(a) pro¬ 
prietaries) deste livro e do TK 90X. 

Nao existe nenhum, limite para a variedade 
de curvas e espirais que podera ser desenhadas com 
este programa, salvo as impostas pela imaginagao do 
(a) usuario(a)... 

0 programa e tremendamente auto-instrutivo 
ou seja totalmente tutorial fornecendo-lhe todas as 
instrugoes necessarias para escolher e fazer com 
que o TK 90X desenhe cada uma das seis curvas exem 
plo. 

No decorrer da execugao, o programa cria 
uma cadeia literal (STRING) f$, na qual as equagoes 
das curvas que se quer desenhar se armazenarao de 
forma permanente. 
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Em continuagao sao lidos os 6 pares de equa 
goes (as que vao como exemplo dentro das instrugoes 
DATA) enviando-os para um armazenamento temporario 
em x$ e y$, 

0 programa se transfere para as equagoes 
que estao era x$ e y$, vai a subrotina de numero de 
linha 1500, desenha a curva escolhida e continua fa 
zendo isto ate que o(a) usuario(a) aperte alguma te 
cla quando entao s-e volta So "menu" de opgoes 



Tabela 1 


Ai vao alguns comentarios sobre as curvas 


exemplo. 

£ surpreendentemente dificil prever o tama 
nho de uma curva a partir das suas equagoes parame¬ 
tric as . 

A circunferencia e a curva fundamental ou 
seja serve de "origem" para todas as curvas fecha- 
das, ellpses e espirais. 

As equagoes parametricas de uma circunfe¬ 
rencia de raio unitario sao: 

f X “ cos t 


Por outro lado,caso se queira uma circunfe 
rencia de raio, digamos 75 unidades,basta ter as 
equagoes 
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’x = 75 cos t 
y = 75 sen t 


A maior circunferencia que voce pode dese- 
nhar na tela do aparelho de T.V. conectado ao seu 
TK 90X e de raio 87. 

Fode-se pensar em uma elipse como sendo 
"aproximadamente" uma circunferencia de clrculo que 
foi alongada ou achatada. 

A maior elipse que pode ser desenhada com 
centro no centro da tela (x = 127, y - 87) tem como 
equaijoes parametricas 


fx = 127 cost 
jy = 87 sent 

Para que se possa girar uma elipse de um 
certo angulo e necessario "mesclar" as funqoes tri- 
gonometricas seno e cosseno nas equates parametri¬ 
cas, como por exemplo nas equa$oes: 


t id os 
gura 


{; 

Efeitos 
quando se 
22 ) . 


= 40 cos t + 25 sen t 
= 40 sen t - 25 cos t 

extreraamente interessantes 
"misturam" duas elipses (vej 



s ao 
a a 


oh - 
Fi- 


Figura 22 

£ o caso, quando tivermos as equa 5 oes para¬ 


metricas 


25 cos (12t) + 50 cos t 
15 sen(12t) + 30 sen t 


Figura 22 


Outros desenhos "fantasticos" podem ser ob 
tidos com as equa§oes parametricas 


'x = 70 cos(t/8) cos t 
y = 50 sen (t/8)sen t 


Figura 23 



x = 

,y ■ 


15 cos(10t) + 80 cost + 5cos(t/4) 
15 sen(10t) + 45 sen 

“ ‘-8 


•'VR*V, 


t + 5s en (t/4 )*' N \ 
Figura 24 

-• 

.jr.i'.;*’ 


. ^ I ■ * 






Bern 


Figura 24 

ai vai o programs "ESPIRAIS" 


5 CLS: PRINT TAB 10; "ESPIRAIS" 

10 GOSUB 2000 

20 BORDER 6: PAPER 6: INK 1 

30 LET fant=0:| LET cf = 0: LET U = 1000 


40 DIM f$ (ilf) 

50 DATA 6 

60 DATA "15*C0S(10*t) + S0*COS t + 5*COS(t/4)", "15*SIN<10*t) 
+ 45*SIN t + 5*SIN(t/4) " 

70 DATA "70*COS(t/8)*COS t", "50*SIN(t/3) * SIN t " 
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80 DATA "25*COS(l2*t) + 50 *COS t",. "15*SIN(!L2*t)+30*SINt" 

90 DATA "40*COS t + 25*SINt", "40*SIN t25*COS t" 

100 DATA "20*COS t + 20 * C0S(t/2) + 20 * COS (t/4)", 

"15*SIN t + 15 * SIN(t/2) + 15*SIN (t/4)” 

110 DATA "40*SIN t + 20*SIN(4*t) + 10*SIN (16*t) + 5*SIN(32*t)", 
"32*COS t + 8*COS(4*t)+ 4*C0S(16*t) + 2*COS(32*t>" 

120 READ nf 
130 FOR j*l TO nf 
140 READ x$, y$ 

150 IF LEN x$ >255 OR LEN y$ >255 THEN SOUND .2,15: SOUND 
.3,16: PRINT "A fungao na instrugao DATA tern raais que 
255 caracteres": STOP 
160 LET cf = cf + LEN x$ + LEN y$ + 2 
170 IF cf > = 1000 THEN SOUND .2,12: SOUND .3,13: 

SOUND .4,24: PRINT,, "Nao existe espago suficiente para 
a fungao - aumente i f na linha 30": STOP 
180 LET f$(fant+1 TO cf) - CHR$ LEN x$ + x$fCHR$ LEN y$+y$ 

190 LET fant » cf 
200 NEXT j 

210 LET x$="" : LET y$= ,m 
220 LET n=28: CLS: PRINT TAB 10; "ESPIRAIS" 

230 PRINT ,,,, TAB 14; "MENU" 

240 PRINT,, "Introduzir uma fungao"; TAB n; "I" 

250 PRINT,, "Desenhar uma fungao"; TAB n; "D” 

260 PRINT,, "Armazenar uma fungao"; TAB n; "A" 

270 PRINT,, "Parar o programa"; TAB n; "P" 

230 INPUT r$ 

290 IF r$ < > "I" OR r$ <> "D" OR r$< > "A" OR r$ <> "P" 

THEN GOTO 240 

300 GOTO 300+30*(r$ -"I") + 130 * (r$ = "D") + 330*(r$=”A") + 
410 * (r$ = "P") 

310 INPUT "Pressione uma tecla para continuar"; z$ 

320 GOTO 220 


330 PRINT,, TAB 7; "Introduza a fungao" 

340 INPUT "Introduza a equagao parametrica x = f(t) para o 
eixo Ox"; x$ 

350 IF LEN x$ >255 THEN SOUND .2,23; SOUND .3,24: PRINT,, 

"A equagao deve ter menos do que 255 caracteres. 

Entre com outra~": GOTO 340 
360 PRINT ,,,, "A equagao e:",, x$ 

370 INPUT "Introduza a equagao parametrica y = f(t) para o 
eixo Oy"; y$ 

380 IF LEN y$ >255 THEN SOUND .1,23; SOUND .2,24 : 

PRINT,, "A equagao deve ter menos do que 255 caracteres. 
Entre com outra.": GOTO 370 
400 PRINT,,,, "A equagao e:",, y$ 

410 GOSUB 1500 
420 GOTO 310 

430 PRINT,, "Ai vai se desenhar uma das fungoes ja existen- 
' tes no programa" 

440 LET f = 0: LET p - 1 
450 GOSUB 1800 

460 IF s > = cf THEN GOTO 520 
470 PRINT,, p; TAB 6; f$(s TO f); TAB 6; 

480 GOSUB 1800 
490 PRINT f$(s TO f) 

500 LET p = p+1 
510 GOTO 450 

520 INPUT "Entre com o numero da fungao E^q 
530 IF q >p OR q<0 THEN SOUND .2,23: SOUND .3,24: GOTO 520 
540 LET f a 0: LET p-1 
550 GOSUB 1800 

560 IF p=q THEN LET x$ = f$ (s TO f) 

570 GOSUB 1800 

580 IF p<>q THEN LET p = p+1: GOTO 550 
590 LET y$ = f$ <s TO f) 

600 GOSUB 1500 
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610 LET x$ « LET y$= "" 

620 GOTO 310 

630 PRINT,,; TAB 8; "Armazenar uma fungao" 

640 IF LEN x$ = 0 OR LEN y$ = 0 THEN SOUND .2,23: SOUND .3,23 
: PRINT,, "A fungao nao esta definida": GOTO 310 
650 LET cf ~ cf + LEN x$ + LEN y$ + 2 
660 IF cf > = 1000 THEN SOUND .3,23: SOUND ,2,24: PRINT, 

"Nao existe espago suficiente para guardar a fungao": 

LET cf = cf - LEN x$ - LEN y$ -2: GOTO 310 
670 LET f$ (fant + 1 TO cf) * .CHR$ LEN x$ + x$ + CHR$ 

LEN • y$ .+ y$ 

680 LET fant = cf 

690 PRINT,-, "A fungao ja esta armazenada" 

700 GOTO 310 

710 PRINT "Como voce ja cansou..." 

720 FOR k=l TO 18 
730 SOUND k/10, k+3 
740 NEXT k 

750 FOR k=18 TO 1 STEP -1 
760 SOUND k/10,-(k+3) 

770 NEXT k 

780 PRINT "Vamos parar este programa, viu?!?i" 

790 STOP 

1500 CLS: PRINT TAB 9; "ESPIRAIS” 

1510 PRINT,, x$: PRINT y$ 

1520 LET t=0: LET cx = 127: LET cy = 70 
1530 LET rx = VAL x$ : LET ry - VAL y$ 

1540 PLOT cx + rx, cy + ry 
1550 LET t = t+ .025 

1560 IF INKEY$ <>"" THEN GOTO 1580 ■ " - 

1570 GOTO 1530 
1580 RETURN 
1800 LET s = f+2 

1810 LET f » s + CODE f$ (s-1) - 1 
1820 RETURN 
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2000 PRINT ,,,,,,,,,, 

2010 PRINT "Este programa permite representar na tela 

fungoes que foram introduzidas de forma independente 
para as coordenadas x e y " 

2020 PRINT "Ambas as equagoes devem ser expressas como 
fungao de t" 

2030 PRINT ,,,,,,"Neste programa tem-se a possibilidade de 
desenhar 6 graficos diferentes" 

2040 PRINT ,,,j FLASH 1; "Aperte qualquer tecla para 
comegar" 

2050 IF INKEY$ * "" THEN GOTO 2050 

2060 RETURN. 

O.I. - Se as coisas estiverem ficando "pretas" quan 
to ao entendimento de algumas linhas ou quern 
sabe de todo o programa nao esquega que um 
meio para nao ficar "boiando" e ter tambem 
o meu livro "BASIC no TK 90X". Ele o auxilia 
ra muito para nao ficar nas trevas... 




(Eaptlulo 10 
jperspwtiua cJntca 


Este programa permite ver de qualquer angu 
lo um solido escolhido por voce entre os que con- 
poem o "menu": cubo, prisma hexagonal, piramide ou 
octaedro. 

Utilizando as teclas do cursor pode-se fa- 
zer osolido irpara a esquerda(tecla "5") para a di- 
reita (tecla "8"), aproximar o solido (tecla "7") 
afastar o solido (tecla "6"), subir o solido (tecla 
"s") ou abaixar o solido (tecla "b"). 

A tecla "m" permite voltar ao menu. 

Ai esta o "programao" 

1 REM .** Perspectiva conica ** 

2 BORDER 7 

5 LET px - 0: LET py » 0: LET ang * PI: LET r - 200: 

LET c - 80: LET d = 50 
10 PAPER 7: INK 0: BRIGHT 0 
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15 CLS 

20 PRINT AT 3,6; "** PERSPECTIVA C0NICA**" 

25 PRINT AT 4,4; "Escolha um corpo da lista" 

30 PRINT AT 5;5; "Tecle um dos numeros:" 

32 PRINT AT 7,3; "1 - CUBO" 

34 PRINT AT 8,8; "2 - PIRSMIDE" 

36 PRINT AT 9,8; "3 - PRISMA" 

38 PRINT AT 10,8; "4 - OCTAEDRO" 

39 PRINT AT 12,6; ”*Durante o programa:"; AT 14,10; "7 - 

aproximacjao"; AT 15,10; "6=afastamento ; AT 16,10; 5— 

esquerda"; AT 17,10; "S^direita"; AT 18,10; "s=subir"; 
AT 19,10; "b=abaixar"; AT 20,10;"m=voltar ao menu" 

40 IF INKEY$ = "1" THEN PRINT AT 2,6; "□ESPEREO": PRINT 
AT 7,7; " >": GOTO 100 

50 IF INKEY$ = "2" THEN PRINT AT 2,6; "DESPEREd"; PRINT 
AT 8,7; " >": GOTO 250 

60.IF INKEY $ ="3” THEN PRINT AT 2,6; "DESPEREO"; PRINT 
AT 9,7; " >”; GOTO 400 

70 IF INKEY$ = "4" THEN PRINT AT 2,6; "□ESPERED": PRINT 
AT 10,7; " >"; GOTO 550 
90 GOTO 40 

100 RESTORE 125: LET pt = 10:. LET lin = 190 
110 DIM x(pt): FOR t-1 TO pt:115 READ x(t) 

120 NEXT t 

125 DATA -50,-50,50,50,-50,-50,50,50,0,0 
130 DIM y(pt): FOR t=l TO pt 
135 READ y(t) 

140 NEXT t 

145 DATA -50,50,50,-50,-50,50,50,-50,150,150 
150 DIM z(pt): FOR t=l TO pt 
155 READ z(t) 

160 NEXT t 

165 DATA 0,0,0,0,100,100,100,100.0* 125 
170 PAPER 0: INK 7: BRIGHT 1 
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180 GOTO 1000 
190 CLS 

195 PLOT 0,c: DRAW INK 5; BRIGHT 0;255,0 
200 RESTORE 225: FOR t=l TO 13 
210 READ v,w 

215 PLOT 128+m(v), n(v): DRAW m(w)-m(v),n(w)-n(v) 

220 NEXT t 

225 AT A 1,2,2,3,3,4,4,1,1,5,2,6,3,7,4,8,8,5,5,6,6,7,7, 
8,9,10 

230 CIRCLE 123+m(10),n(10)+(n(10)-n'(9))/l0, 

(n(10)-n(9))/10 
240 GOTO'1100 

250 RESTORE 270: LET pt = 9: LET l£n=320: LET ang=2. 
7488936 

255 DIM x(pt): FOR t=l TO pt 

260 READ x(t) 

265 NEXT t 

270 DATA -50,-50,50,50,0,0,0,0,0 
275 DIM y(pt): FOR t=l TO pt 

280 READ y(t) 

285 NEXT t 

290 DATA -50,50,50,-50,0,150,150,170,150 
295 DIM z(pt): FOR t=l TO pt 
300 READ z(t) 

305 NEXT t 

310 DATA 0,0,0,0,100,0,50,40,30 
313 PAPER 0: INK 7: BRIGHT 1 
315 GOTO 1000 
320 CLS 

325 PLOT 0,c: DRAW INK 5; BRIGHT 0; 255,0 
330 RESTORE 370: FOR t-1 TO 11 
340 READ v,w 

350 PLOT 128+m(v),n(v): DRAW m(w)-ro(v),n(w)-n(v) 

360 NEXT t 
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370 DATA 1,2, 2,3,3,4,4,1,1,5,2,5,3,5,4,5,6,7,7,3,3,9 
380 GOTO 1100 

400 RESTORE 420: LET pt = 12: 'LET lin=475: LET ang=Pl/2i: 

LET 0=100 

405 DIM x(pt): FOR t=l TO pt 
410 READ x(t) 

415 NEXT t 

420 DATA -100,-100,-100,-100,-100,-100,100>100,100>100>100>100 
425 DIM y(pt):-FOR t=l TO pt 
430 READ y(t) 

435 NEXT t 

440 DATA 25,50,25,-25,-50,-25,25,50,25,-25,-50,-25 
445 DIM z(pt): FOR t=l TO pt 
450 READ z(t) 

455 NEXT t 

460 DATA 0,43.3,86.6,86,6,43.3,0,0,43.3,86.6,86.6,43.3,0 
465 PAPER 0: INK 7: BRIGHT 1 
470 GOTO 1000 
475 CLS 

480 PLOT 0,c: DRAW INK 5; BRIGHT 0;255,0 
485 RESTORE 505: FOR t-1.TO 18 
490 READ v , w 

495 PLOT 128+m(v),n(v): DRAW m(w)-m(v),n(w)-n(v) 

500 NEXT t 

505 DATA 1,2,2,3,3,4,4,5,5,6,6,1,7,8,8,9,9,10,10,11,11,12,12, 
7,1,7,2,8,3,9,4,10,5,11,6,12 
510 GOTO 1100 

550 RESTORE 570: LET pt = 10: DET lin=625: LET c = 100 
555 DIM x(pt): FOR t=l TO pt 
560 READ x(t) A 

565 NEXT t * " 

570 DATA -50,-50,50,50,0,0,-15,0,15,0 
575 DIM y(pt): FOR t=l TO pt 
580 READ y(t) 
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585 NEXT t 

590 DATA -50,50,50,-50,0,0,125,150,125,133,66 
595 DIM 2(pt): FOR t=l TO pt 
600 READ z(t) 

605 NEXT t 

610 DATA 75,75,75,75,150,0,0,0,0,75 
615 PAPER 0: INK 7: BRIGHT 1 
620 GOTO 1000 
625 CLS 

630 PLOT 0,c: DRAW INK 5: BRIGHT 0;255,0 
635 RESTORE 655: FOR t*l TO 18 
640 READ v,w 
645 PLOT, 128+m(v),n(v): DRAW m(w)m(v),n(w)-n(v) 

650 NEXT t 

655 DATA 1,2,2,3,3,4,4,1,1,5,2,5,3,5,4,5,1,6,2,6,3,6,4,6,7, 
8,8,9,9,7,7,10,8,10,9,10 
660 GOTO 1100 

1000 LET a=r*COS ang: LET b=r*SIN ang: DIM m(pt): FOR t=l 
TO pt 

1005 IF a=px THEN LET ra(t)=d*((x(t)-a)/(y(t)-b)): GOTO 1030 
1007 IF a=x(t) AND x(t) <>px THEN LET r=r+20: GOTO 1000 
1010 LET m(t)=d*TAN (ATN ((py-b)/(px-a))-ATN 
((y(t)-b)/(x(t)-a))) 

1020 IF 128+m(t) >255 OR 123+m(t)<0 THEN PRINT AT 1,5; 

"DEMASIADO PROXIMO": GOTO 1100 
1030 NEXT t 

1050 DIM n(pt): FOR t=l TO pt 

1060 LET n(t)=z(t)+((c-z(t))/SQR ((a-x(t))*(a-x(t)) + 
(b-y(t))*(b-y(t))))*(SQR ((a-x(t))*(a-x(t))+ 
(b-y(t))*(b-y(t)))-SQR (m(t)*m(t)+d f2>) 

1070 IF n(t) >175 OR n(t)<0 THEN PRINT AT 1,5; 

"DEMASIADO PROXIMO": GOTO 1100 
1080 NEXT t 
1090 GOTO lin 

1100 IF INKEY $ = "8" THEN LET ang - ang+Pl/16: GOTO 1000 



1110 IF INKEI$ ="5" THEN LET ang = ang-Pl/16: GOTO 1000 

1120 IF INKEY$ ="6" THEN LET r=r+20:GOTO 1000 

.1130 IF INKEY$ »"7" THEN LET r=r-20:GOTO 1000 

1140 IF INKEY$ ="s" AND c+20 <= 175 THEN LET c=c+20:GOTO 1000 

1150 IF INKEY$=”b" AND c-20 >= 0 THEN LET c=c-20: GOTO 1000 
1160 IF INKEY$ ="m" THEN PAPER 7: INK 0: BRIGHT 0: GOTO 5 
1170 GOTO 1100 

Execute (RUN) o programa e a sua "primeira" 
tela sera do seguinte tipo 


**PERSPECTIVA C0NICA** 

Escolha um corpo da lista 
Tecle um dos numeros: 

1 - CUBO 

2 - PIR^MIDE 

3 - PRISMA 

4 - OCTAEDRO 


*Durante o programa: 



7 - aproxima^ao 
6 - afastamento 
5 r esquerda 

8 - direita 
s - subir 

b = abaixar 
m - voltar ao menu 


J 

Figura 25 


No decorrer do uso do programa "PERSPECTIVA 
CONICA" podem surgir as seguintes situaqoes na tela, 
(Figuras 26 a,b,c,d,e,f) onde se pode perceber fa- 
cilmente a aproxiraa$ao e o afastamento. 





fflapttulo 10 

apitcttftu* para a 
iirtrSntra rant Mrrtia 
a uma tosfraftto-itpu foslreza 
no rirnttta 

Ai vai um outro "programao" porem agora 
voltado para a Eletronical 

Neste caso especifico vai se calcular a 
"etapa" amplificadora de um emissor comum. 

Para esta finalidade devera ser introduzi- 
dos tres dados: em primeiro lugar a tensao com a 
qual se deseja alimentar o circuito, em seguida a 
relaqao entre a tensao de entrada e de salda e fi- 
nalmente a corrente do coletor do transistor,a qual 
depende do tipo de transistor que vai ser utilizado 
sendo que valores normals para a intensidade da cor 
rente sao em miliamperes (mA) ou em fraqoes de am¬ 
pere (A) . 

0 programa ecomposto de quatro etapas basi 

cas: 

1) calculo das componentes 

2) geraqao do slrabolo de resistencia ele- 
trica ou seja do ohm (ft) 
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3) exibiqao da tabela das resistencias co- 
mumente encon'tradas no comercio 

4) exibiqao do esquema do circuito 


Espero realmfente que este programa seja 
um util modelo para que os professores de Eletroni 
ca possam elaborar outros esquemas seraelhan'tes que 
permitam principalmente aos seus alunos um aprendi- 
zado individual tendo como professor o TK 90X. 

10 REM ** Etapa amplificadora** 

15 CIS: GOSUB 500: GOSUB 600 
20 REM ** Calculo de componentes ** 

30 INPUT "Tensao Vcc(V) =□"; a 
40 INPUT "Relaqao de amplificaqao Av = □ "; 

45 CLS: PRINT "Vcc =";a; "V", , 'Av="; b 
50 INPUT "Corrente do coletor Ic(A) =□"; c 
55 PRINT ,, Ic="; c; "A" 

60 PRINT "Re >"; .7/c; "□ faqa a escolha segundo a tabela" 



65 GOSUB 190 ___ jBater A em 

70 INPUT "Re(A) ="; d: CLS " “ —- grafico 

80 LET e=d*b: LET f=(.7+(d*c^.—■-- 

85 PRINT "Rc=";d*b; " DA", "Re=";d;"DA" \ 

90 PRINT "Rl="; INT(e*a/f) £2&\"K2-'i (e/(l-(f/a))); "DA" 

110 PRINT "C1=C2=470 micro F/l6V">"Ce="; INT(1.59/(20*d)* 


1000000); "microF" 

120 PRINT "Pot.Trl="; (a-(d*b+d)*c)*c*1000;"raW" 

122 PRINT AT 19,&i"Vcc="; AT 19,15;"Ic«";c; ,, A" 


125 GOSUB 600 

130 PRINT AT 21,0; "Quer novo calculo (S/N)?": 

IF INKEY$="" THEN GOTO 130 
140 IF INKEY$="S" OR INKEY$="s" THEN RUN 


150 STOP 
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185 REM **Ai vai a tabela das resistencias encontradas no 
comercio** 

190 RESTORE 240 
195 PRINT AT 4,2; "ft"; AT 4,5; "ft"; AT 4,9; "ft"; AT 4,12; 
"Kft"; AT 4,16; "Kft"; AT 4,19; "Kft"; AT 4,23; "Mft"; AT 
4,27; "Mft" 

200 FOR Z = 6 TO 17: READ g 

210 PRINT AT M;g;AT Jl,5;g*10; AT £,8;g*100; AT £,12;g; 

AT Z, 16;g*10; AT Jl,l9;g*100; AT£,23;g 
220 IF %< = 10 THEN PRINT AT £,27;g*10 
230 NEXT l 

240 DATA 1,1.2,1.5,1.8,2.2,2.7,3.3,3.9,4.7,5.6,6.8,8.2 

250 RETURN 

500 REM *Grafico ft* 

505 RESTORE 510: FOR k=0 TO 7: READ j: POKE USR "A"+k p j: 
NEXT k 

510 DATA 24,36,66,129,129,66,36,231 
520 RETURN 

600 REN **Ai vai o desenho do circuito** 

605 RESTORE 640: PRINT "Calculos para o circuito" 

610 FOR k=l TO 49: READ p,q,w,z 
620 PLOT p,q: DRAW w,z 
630 NEXT k 

640 DATA 74,74,0,7,74,81,9,0,83,34,0,-8,37,34,0,-8,37,31,27, 
0,114,85,0,-8,100,81,3,0,97,39,6,0,103,39,0,8,103,97,-6, 
0,97,97,0,-8 

650 DATA 100,105,0,-3,100,105,55,0,100,89,0,-8,126,105,0,-8, 
123,97,6,0,129,97,0,-8,129,39,-6,0,123,89,0,3,126,89,0, 

-5 

660 DATA 126,34,-4,0,122,34,-6,-3,74,66,0,-7,74,59,79,0,100, 
59,0,7,97,66,6,0,103,66,0,3,103,74,-6,0,97,74,0,-8,100, 
74,0,7 
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670 DATA 126,59,0,6,123,66,6,0,129,66,0,8,129,74,-6,0,123, 
74,0,-8,126,74,0,5,126,79,-5,0,121,79,-6,3 
680 126,84,10,0,136,87,0,-6,139,87,0,-6,139,84,7,0,146,84, 
0,-7,146,59,0,7 

690 DATA 126,79,10,0,136,79,0,-7,133,72,6,0,133,69,6,0,136, 
69,0,-10 

700 CIRCLE 115,82,7 

710 PRINT AT 13,5; "ENT."; AT 10,9: "Cl"; AT 7,12; "Rl"; 

AT 13,10; "R2"; AT 13,13; "Re"; AT 13,19; "SAI." 

720 PRINT AT 15,16; "Ce"; AT 7,15; "Rc"; AT 10,17; "C2"; 

AT 8,20; "+V"; AT 14,20;"-V" 

730 RETURN 


Ao executar (RUN) este programa voce deve 


ver■ a seguinte 


a) 




sequencia: 



ic.i3.6A Fa<ja a eseolha segundo a tabela 

R* > 1 , A 


1 10 

1.2 xa 

1 * s is 
4L • a le 

2.2 22 

2 * 7 27 

3.3 33 

3.0 3® 

4 . . 7 47 

S . S S3 


1.8 ia 
2.2 22 

2.7 27 

3.3 33 

3 » * 3'P 

4.7 A? 

s . e- 33 
a. a 33 
a . 2 a2 


Kii mo mo 

130 1 lO 

i£0 1.2 12 

ISO 1,3 
130 1.3 1a 

2 , 5,22 
270 2.7 

3 30 3 . *> 


Figura 27 




Figure 27c 


Se por acaso de circuito eletronico o seu 
conhecimento e nulo e o interesse pelo assunto ha 
pouco apresentado foi nenhum quero remedia-lo(a) 
com uma distrajao. 

Ai vai o jogo o "CARRO MALUCO"... 


Neste jogo voce deve dirigir urn carro que 
"trafega" a toda velocidade num dos circuitos apre- 
sentados nas Figura 28 a,b ou c porem com o deta 
Ihe de estar sera freios. 

Para conduzir o carro voce pode utilizar 
as tec las ”P” e "0”. A tecla "P" faz o carro se mo- 
vimentar no sentido horario e com a tecla "0" se 
desloca o carro no sentido anti-horario. 
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Figura 28 
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Como ja disse o jogo consta de tres circui 
tos sobre os quais voce deve permanecer durante 20 
segundos ainda que o seu TK 90X represente este tem 
po como sendo 1 minuto. 

No inicio do jogo o TK 90X Ihe pedira oseu 
nivel de destreza (ou de competencia) o qual pode 
variar de 1 ate 9. 

Tenha muito cuidado com as derrapagens pois 
quanto mais alto for o nivel escolhido por voce 
maior sera a possibilidade que o seu carro derrape. 

Bern ai vai o "programao" e esteja aten- 

t o (a).. 

5 REM ** CARRO MALUCO ** 

10 GOSUB S000 

20 REM**':Rotina principal ** 

30 FOR c.=l TO 3 
40 GOSUB 8500 

50 BRIGHT 0: FLASH 0: BORDER 4: PAPER 4: INK 0: CLS 
60 GOSUB c*l000 
70 DIM a(4) 

80 LET ang=l 
90 LET q=l: LET w=l 
100 FOR t=l TO 180: REM* TEMPO* 

110 PRINT AT q,w;CHR$ (143+ang) 

120 IF INKEY$="o" OR INKEY$="0" THEN LET ang=ang-l: IF 
ang*0 THEN LET ang-4 

130 IF INKEY$="p" OR INKEY$="P" THEN LET ang=ang+l: IF 
ang=5 THEN LET ang=l 
140 LET a(ang) _ niv 
150 LET o=*q: LET p*w 

160 IF a(l) >0 THEN LET p=p+l: LET a(l)-a(l)-l: IF 
a(l)< niv-1 THEN SOUND .018,24: SOUND .018,23 



170 IF a (2) >0 THEN LET o=o+l: LET a(2)=a(2)-l: 

IF a(2)< niv-1 THEN SOUND .018,24: SOUND .018,23 
180 IF a(3) >0 THEN LET p«p-l: LET a(3)=a(3)-l: 

IF a(3)< niv-1 THEN SOUND .018,24: SOUND .018,23 
190 IF a(4) >0 THEN LET'o=o-l: LET a(4)=a(4)-l: 


200 

210 

220 

230 

240 

245 

250 

260 

270 

280 

290 

310 

nar 

vez 

eza 


IF a(4)< niv-1 THEN SOUND .018,24: SOUND .018,23 
PRINT AT q,w;"D" 

IF ATTR (o,p)=39 THEN GOTO 7.000 
LET q=o: LET w-p 


NEXT t 
NEXT c 

REM ** FINAL FELIZ ** 

LET c$=" 1IIIIIIIIIHUIII1IIII1HMIIIII" 

FOR m-1 TO 21: LET c$=c$+c$ (1 TO 32): NEXT m 


FOR m=7 TO 0 STEP -1 
PRINT AT 0,0; INK m; OVER 1; 
SOUND .5,m*3: NEXT m 
LET z$="Parabens 

Voce conseguiu domi 
o carro. Queres tentar outra 
(S/N)? 0 seu nivel de destr 
passa a ser 1 unidade maior. 

PR 



EPARA-TEM" 


320 BORDER 0: PAPER 1: CLS: INK 6: BRIGHT 1 
330 PRINT AT 0,0; 

350 FOR m=l TO 220 

360 PRINT z$(m); FLASH 1; U _";CHR$ 8; 

365 SOUND .05,24: SOUND .06,23 
370 NEXT m 

380 IF INKEY$="" THEN GOTO 380 
390 IF INKEY$ ss "S" OR INKEY$="s"' THEN GOTO 420 
400 IF INKEY$="n" OR INKEY$="N" THEN GOTO 9900 
410 GOTO 310 
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420 FOR m=221 TO LEN z$ 

430 PRINT z$(m); FLASH 1; 

440 SOUND .05,20: SOUND .06,21 
450 NEXT m 
460 LET niv=niv+l 
470 SOUND 1,10: SOUND 1,12 
480 GOTO 30 

1000 REM ** CIRCUXTO 1 ** 

1010 PRINT AT 0,0; INK 7; "OOOOOOOOOOOOOOOGOOOOOOOOOOOOOOOO" 
1020 PRINT AT 21,0; INK 7;"OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO" 
1030 FOR a-0 TO 21 

1040 PRINT AT a,0; INK 7; "0"; AT a,31; INK 7;"0" 

1050 NEXT a 

1060 PRINT AT 6,6; INK 7; "OOOOOOOOOOOOOOOOOOOO" 

1070 PRINT AT 15,6;INK 7;’"OOOOOOOOOOOOOOOOOOOO" 

1080 FOR a=6 TO 15 

1090 PRINT AT a,6; INK 7; "0"; AT a,25; INK 7,"0" 

1100 NEXT a 
1110 RETURN 

2000 REM ** CIRCUITO 2 ** 

2005 PRINT AT 0,0; INK 7; ”00000000000000000000000000000000" 
AT 21,0; "00000000000000000000000000000000" 

2010 PRINT AT 1,0; INK 7; "0"; AT 1,28; "0000000"; 

AT 2,29; "00000"; AT 3,30; "00"; AT 18,0; "00"; 

AT 18,30; "00000"; AT 19,29; "0000000"; 

AT 20,28; "0000" 

2020 FOR ra=4 TO 17 

2030 PRINT AT tn,0; INK 7; "0"; AT m,31; "0" 

2040 IF m>4 AND m< 10 OR m > 12 AND m<17 THEN PRINT 
AT m,5; INK 7; "0"; AT ra,13; "0"; AT m,l8; "0"; 

AT m,26;"0” 

2050 NEXT m 


2060 PRINT AT 4,6; INK 7; "00000000”; AT 4,18; "00000000"; 

AT 5,6; "000"; AT 5,23; "000"; AT 6,6; "00"; AT 6,24; 
"00"; AT 7,6; "0"; AT 7,25; ”0"; AT 9,5; "000000000"; 

AT 9,18; "000000000" , 

2070 PRINT AT 13,5; INK 7; "000000000”; AT 13,18; 

"000000000"; AT 15,6; "0"; AT 15,25; "0";. AT 16,6; 

"00"; AT 16,24; "00"; AT 17,6; "00000000"; AT 17,18; 
"00000000”; AT 18,1; "0"; AT 18,30; "00000"; 

AT 19,29; "0000000"; AT 20,28; "0000" 

2080 RETURN 

3000 REM ** CIRCUITO 3 ** 

3005 PRINT AT 0,0; INK 7; "OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO" 
AT 20,28; "000000000000000000000000000000000000" 

3010 FOR m=l TO 20 

3020 PRINT AT m,0; INK 7; "0"} AT m,31; "0" 

3030. NEXT m 

3040 PRINT INK 7; AT 1,12; "00000000"; AT 1,28; "0000000"; 

AT 2,13; "OOOOOO"; AT 2,29; "00000";‘AT 3,14; ."0000"; 

AT 3,30; "00"; AT 4,15; "00"; AT 5,6; "000"; AT 5,15; 
"00"; AT 5,23; "000"; AT 6,5; "00000"; AT 6,22; 

"00000"; AT 7,5; "00□□00"; AT 7,21; "OOOQOO"; 

AT 8,5; "OODDOO"; AT 8,20; "OODDDOO"; AT 9,5; 
"OOODDDOO"; AT 9,19; "OODODDOO"; AT 10,5; "OODODDOO" 
AT 10,19; "00□□□□00" 

3050 PRINT INK 7; AT 11,5; "OODODDOO"; AT 11,19; "OODODDOO" 
AT 12,5; "OODODDOO"; AT 12,19; "OOODDDOO"; AT 13,5; 
"00 00000"; AT 13,20; "00□0000"; AT 14,5; "OODDOO"; 

AT 14,21; "00mOO"; AT 15,5; ”00000"; AT 15,22; 
"OOOOO"; AT 16,6; "000"; AT 16,15; "00"; AT 16,23; 
"000"; AT 17,15; "00"; AT 18.,1; ”0"; AT 18,14; "0000"; 
AT 18,30; "OOOOO"; AT 19,13; "OOOOOO"; AT 19,29; 
"0000000"; AT 20,12; "00000000" 

3060 RETURN 





94 


7000 REM ** DESFECHO FATAL ** 

7005 PRINT AT o,p; PAPER 7; INK I; CHR$ (ang+143): 

SOUND .5,-10 

7010 PRINT AT 21,0; INK 7; PAPER 0; "Circuito";c,"Tempo"; 
INT(t/3) 

7020 PRINT #1; "Outra (S/N)?" 

7030 IF INKEY$="n" OR INKEY$="N" THEN GOTO 9000 
7040 IF INKEY$="s" OR INKEY$="S" THEN RUN 
7050 GOTO 7030 
8000 REM ** APRESENTAQAO ** 

8005 RESTORE 8000 : FOR a=l TO 4 
8010 READ a$ 

8020 FOR j=0 TO 7 
8030 READ c: POKE USR a$+j,c 
8040 NEXT j 
8050 NEXT a 

8060 DATA "a", 224,230,255,231,231,255,230,224,"b",255,255, 
255,36,36,126,126,60,"c",7,103,255,231,231,255,103,7, 
"d",60,126,126,36,36,255,255,255 
8070 PAPER 2: BORDER 2: INK 7: CLS 
8080 FOR a=0 TO 21 STEP 2 

8090 PRINT AT a,0; PAPER 6; INK 3; FLASH 1; "carro maluco" 
8100 NEXT a 

8110 FOR a=l TO 21 STEP 2 

8120 PRINT AT a,0; PAPER 3; INK 6; FLASH 1; "carro maluco" 
8130 NEXT a 

8140 PRINT AT 0,15; FLASH 1; "Cuidado..." 

8150 PRINT AT 2,15; "0 seu veloz carro"; AT 3,15; "esta sem 
freios"; AT 4,15; "no circuito."; AT 10,15; "P=horario"; 
AT 12,15; "0”=antl-horario" 

3160 PRINT ^ 1; "Escolha o nivel (1-9)" 

8170 LET m$=INKEY$ 

8130 IF CODE m$ >48 AND CODE M$ <58 THEN GOTO 8200 
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8190 GOTO 8170 
8200 LET niv=VAL M$ 

8210 RETURN 

8500 REM ** NtfMERO DE CIRCUITO ** 

8505 PAPER 0: BORDER 4: CLS- * 

8510 LET b$=" ^ 

circuito + 

STR$ c+” " 

8520 FOR a=l TO 51 

8530 IF A+31>= 52 THEN PRINT AT 11,0; PAPER 1; INK 6; 

B$(A TO 51) : GOTO 8550 

8540 PRINT AT 11,0; PAPER 1; INK 6; b$(a TO A+31) 

8550 SOUND ,05,a/2 
8560 NEXT a 
8570 RETURN 

9000 REM ***** FTM *** 

9005 BRIGHT 0; OVER.0: FLASH 0;- INVERSE 0: PAPER 7; INK 0; 
BORDER 7 : SOUND 1,0: CLS 


Ao executar o programa deve surgir a se 
guinte apresentagao na tela: 


maluco 

maluco 

maluco 

maluco 

maluco 

maluco 

maluco 

maluco 

maluco 

maluco 

maluco 

maluco 

maluco 

maluco 

maluco 

maluco 

maluco 


Cuidado... 

0 seu velos carro 
esta sem freios 
no circuito 


P = horario 


0 = anti-horario 


Figura 29 
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g>tntulai>ar 1 ugitu 

alirn k urn super 
juptr 


Chegamos ao ultimo capitulo e nele apresen 
to do.is interessantissimos programas (acho que nao 
e pretensao da minha parte...). 

No primeiro programs voce tera a oportuni- 
dade de "refinar" os seus conhecimentos de Eletroni 
ca (uai outra vez?!?!) naquilo que os (as) "entendi- 
dos"("as") chamara de portas logicas. 

Acho que o tema e bastante didatico sem 
deixar de ser divertido,visto ser este um ponto que 
nao quero esquecer nunca... 

0 programs "SIMULADOR L0GICO“ ilustra ofun 
cionamento das portas logicas usuais nas quais 
alias se inspira' toda a tecnologia atual, inclusive 
do seu raaravilhoso TK 90X. 

Voce ja esta mais interessado(a), nao e? 

E e precisamente com o auxilio do TK 90X 
que voce estimado(a) 1eitor (1eitora) aprendera corao 

'■f 


se comportam estas portas diante da informaqao de 
"zeros” e "uns" (ou seja sem tensao ou com tensao) 
que se aplicam as entradas. Dependendo dos valores 
destes e do tipo da porta obter-se-a um determina- 
do valor de saida. 

No programs aparecera o esquema eletrico 
equivalente a funqao logica em forma de interrupto- 
res, resistencias e lampadas, incluindo-se o simbo- 
lo eletronico que representa a porta.com os valores 
nas suas entradas e na saida. 

Em cada esquema se representam as entradas 
com interruptores indicando-se com "0" quando estao 
abertas e com "1" quando estao fechadas. 

Os sinais "+" e representam os polos 

de uma pilha e as resistencias sao representadas 
por retangulos. 

0 TK 90X Ihe ped ira que introduza os valo¬ 
res que voce quer ter nas entradas e depois Ihe exi 
bira o valor na saida. 

Ai esta o programa "SIMULADOR LQGICO" 

10 REM *** SIMULADOR LOGICO *** 

20 INK 0: BORDER 7: PAPER 7 

30 OVER 0: BRIGHT 0: FLASH 0: CLS 

40 REM GRAFICOS DEFINIDOS 

50 LET z=99: LET x=192: LET y=255 

60 LET q=0: LET v=28: LET w=8 

70 DATA y,y,x,x,x,y,y,q,y,y,q,q,q,y,y,q 

80 DATA y,y,3,3,3,y,y,q,127,127,z,z,z,z,z,z 

90 DATA z,z,z,z,z,z,z,z,z,z,z,z,z,z,127,127 

100 DATA 24,126,126,y,y,126,126,24,v,v,l,2,4,w,v,v 

110 DATA 4,w,211,227,195,q,q,q,v,v,w,w,w,w,v,v 
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120 DATA q,q,195,y,195,q,q,q 

130 FOR n-USR "a" TO USR "a"+87: READ a: POKE n,a: NEXT n 
140 REM menu principal 

150 PRINT AT 1,3; "SIMULADOR lSgICO" _ 

160 PLOT 63,158: DRAW 129,0 f > 

170 PLOT 63,156: DRAW 129,0 ( ^LLUt 

180 PLOT 15,144: DRAW 225,0 

190 DRAW .0,-128: DRAW -225-,0: DRAW 0,128 

200 PLOT 13,146: DRAW 229,0 . 

210 DRAW 0,-132: DRAW -229,0: DRAW. 0,132 
220 PRINT AT 5,10; "escolha a op§ao" 

230 PLOT 79,126: DRAW 96,0 

240 LET a$="D= porta t ipoD " _ 

250 PRINT AT 7,4; "A "+a$ +^INVERSOR" 

260 PRINT AT 9,4; "B' 1T +a?+^D^_._j A B C D E F- 


ZbW PRINT A1 y,4; B —■-•> A,B,C,D,E,F- 

270 PRINT AT 11,4; "C "+a4+[|pSlL—--- |em modo grafico 

280 PRINT AT 13,4; ’ ’D^I^NANDl ^-—^ 

290 PRINT AT 15,4;"E "+a$+^N0R^- 

300 PRINT AT 17,4; "f'^MOO 13) * "OR EXCLUSIVO" 

310 PAUSE 0 
320 GOSUB 2210 

330 REM *** Escolha das portas 
340 LET a=PEEK 23560 

350 IF a=65 OR a-97 THEN GOTO 0440 

360 IF a=66 OR a=93 THEN GOTO 0660 

370 IF a=67 OR a=99 THEN GOTO 0950 

380 IF a*68 OR a*100 THEN GOTO 1260 

390 IF a=>69 OR a*101 THEN GOTO 1560 

400 IF a=70 OR a-102 THEN GOTO 1870 

410 PRINT AT 11,3; "□ Pressione A,B,C,D,K,F": SOUND 3,13 
415 SOUND 4,14: SOUND 4,15 
420 PRINT AT 11,4; a$(TO 23) 

430 GOTO 220 
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440 REM ** INVERSOR *** 

460 REM *** Aqui desenha-se o esquema ** 

480 PRINT AT 18,6; "PORTA TIPO INVERSOR": GOSUB 2180 
490 PRINT AT 10,19; DO — 

500 CIRCLE 194,88,2: OVER 1: PLOT 193,38: PLOT 194,88: 

PLOT 195,88: OVER 0 

510 PLOT 192,83: DRAW -24,-16: DRAW 0,32: DRAW 24,rl6 
520 PRINT AT 3,19; "AODODO S" 

530 PRINT AT 8,3; "+CPABC 11 : PLOT ~39,108 : DR AW 8,0 _ 

540 PLOT 71,108: DRAW 37,0: DRAW 0,-12 "H ABC ~ 

• „ em modo graficc 

■550 PLOT 108,37: .DRAW 0,-12: DRAW -67,0 —- 

560 PLOT 91,103: DRAW 0,-12: 

570 PLOT 91,87: DRAW 0,-12 

580 PRINT AT 10,11; AT 12,3;"-" 

590 PRINT AT 11,10;" s »; AT 11,14; "a" 

600 REM ** controle inversor ** 

610 PRINT AT 21,0;"ntecle o valor de A 1/0 >I=menu ": 

PAUSE 0 

620 IF INKEY$="0" THEN PRINT AT 10,13; "Jl"; AT 13,19; 

"0ODDOO1"; INK 5; AT 10,11; *‘g": SOUND .3,10 

630 IF INKEY$-"l" THEN PRINT AT 10,13; ."j" ; AT 13,19; 

"1DDOOO0"; INK 1; AT 10,11; "G"^ SOUND .2,25 

640 IF INKEY$="m" OR INKEY$="M" THEN GOSUB 2210: GOTO 150 

650 GOTO 590 W _ 

w F GHJ 

660 REM Porta AND em modo grafico 

680 REM ** Aqui desenha-se o esquema ** 

690 GOSUB 2170 

700 PRINT AT 9,19; AT 11,19; ”_J’; AT 10,24;"_" 

710 PLOT 167,103: DRAW 0,-30: DRAW 10,0: DRAW 0,30,3: 


v GHJ 

em modo grafico 


DRAW -10,0 

720 PRINT AT 8,3; "+DDO1D0B";AT. 12,3; AT 10,13; 

AT 13,8; "Porta tipo AND" 

730 PLOT 39,108: DRAW 68,0: DRAW 0,-35: DRAW -68,0 





100 


740 PRINT AT 9,6; "aC!Ob"; AT 10,12; "s" 

750 PRINT AT 8,19; "A"; AT 13,19; "B"; AT 9,25; "S" 

760 REM ** Controle AND *** 

770 PRINT AT 21,1; "tecle o valor de A 1/0 (M=raenu)": 
PAUSE 0 

780 PRINT AT 10,27AT 11,17; 

790 IF INKEY$="ra" OR INKEY$="M" THEN GOSUB 2210: GOTO 150 
800 LET a$=INKEY$ 

810 IF a$ <>"l" AND a$ <>"0" THEN GOTO 790 

820 LET a=VAL a$: PRINT AT 9,17; a: IF a=0 THEN PRINT AT 

8,7;"I GOTO 840 , _ __ _ j~Y~G - 

830 PRINT AT 8,7; " K" em modo grafico 

840 SOUND .2,20 

850 PRINT AT 21 ,l;“otecle o valor de B 1/0 □□□□□□□□□": 
PAUSE 0 

860 LET b$=INKEY$ 

370 IF b$ <> "1" AND b$<>"0" THEN GOTO 860 
380 LET b=VAL b$: PRINT AT 11,17;b: IF b*0 THEN PRINT AT 
8,10;”I ": GOTO 900 
390 PRINT AT 8,10; "K " 

900 LET s=a AND b: PRINT AT 10,27;s 
910 SOUND .2,15: SOUND .3,16. 

920 IF s~0 THEN PRINT INK 1; AT 10,13; " G": GOTO 940 
930 PRINT INK 5; AT 10,13; " G" 

940 PAUSE 3: GOTO 760 
950 REM ** Porta OR ** 

960 REM ** Aqui desenha-se o esquema ** 

930 GOSUB 2170 

990 PRINT AT 9,19; AT 11,19; AT 10,24 

1000 PLOT 167,103: DRAW 0,-30,-1.5: DRAW 10,0: DRAW 0,30, 


DRAW -10,0 

1010 PRINT AT 8,19; "A"; AT 13,19; m B"; AT 9,25; "S" 
1020 PRINT AT 7,9; "a"; AT 11,9; "b"; AT 11,12; V 
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1030 PRINT AT 8,3; "+□□□□□□□■ "; AT 10,10; AT 10,13; 

AT 12,3; 

1040 PLOT 39,108: DRAW 63,0: DRAW 0,-35: DRAW -68,0 
1050 PLOT 75,108: DRAW 0,-16: DRAW 16,0: DRAW 0,16 
1060 PRINT AT 18,8; ’’PORTA T1P0 OR" 

1070 REM ** controle OR'** 

1080 PRINT AT 21,1?”C3 tecle o valor de A 1/0 M=menu": 
PAUSE 0 

1090 PRINT AT 10,27; AT 11,.17; 

1100 IF INKEY$="m" OR INKEY$="M" THEN GOSUB 2210: GOTO 150 
1110 LET a$=INKEY$ 

1120 IF a$ <> "1" AND a$<>"0" THEN GOTO 1110 

1130 LET a=VAL a$: PRINT AT 9,17; a: IF a=0 THEN PRINT AT 

8,10;" I": GOTO 1150 ^** — TTg - 

1140 PRINT AT 8,10;" _ em modo grafico 

1150 SOUND .2,25 

1160 PRINT AT 21,1; "tecle o valor de B l/0DDPOnODOD": 

PAUSE 0 / / j 

1170 LET b$=INKEY$ / / / / 

•1130 IF b$ <> "1" AND b$ <> "0" THEN'GOTO 1160 / 

1190 LET b=VAL b$f PRINT AT 11,17;b: IF b=0 THEN PRINT AT 
10,10;" I": GOTO 1215) j I 

1200 PRINT AT 10,10;" K" / / 


1210 SOUND .2,15 / / 

1220 LET s=a OR b*.PRINT AT 10,27;s / 

1230 IF s=0 THEN PRINT INK 1; AT 10,13; " G": GOTO 1250 

# 

1240 PRINT INK 5; AT 10,13; " G" 

1250 PAUSE 3: GOTO 1080 
1260 REM **•porta NAND ** 

1270 REM ** Aqui desenha-se o esquema ** 

1290 GOSUB 2170 

1300 PRINT AT 9,19; AT li,19; AT 10,24;"__" 

1310 CIRCLE 194,88,2: OVER 1: PLOT 193,88: PLOT 194,88: 
PLOT 195,38: OVER 0 




102 


103 


1320 PLOT 167,103: DRAW 0,-30: DRAW 10,0: DRAW 0,30,3: 

DRAW -10,0 

1330 PRINT AT 8,19; "A"; AT 13,19; ”B"; AT 9,25; "S"' 

1340 PLOT 39,108: DRAW 68,0: DRAW 0,-32: DRAW -68,0: 

PLOT 84,108: DRAW 0,-32 

1350 PRINT AT 3,3; "+"; AT 8,6; "ABC”; AT 8,12; 

AT 12,12; AT 12,3; AT 10,10; 

1360 PRINT AT 18,8; "PORTA TIPO NAND"; AT 7,13; "a”; 

AT 13,13; "b"; AT 10,9;"s" 

1370 REM ** controle NAND *** 

1380 PRINT AT 21,1 ;l"iQtecle o valor de A 1/0 M=menu": 
PAUSE 0 

1390 PRINT AT 10,27;"Q"; AT 11,17;"6" 

1400 IF INKEY$= , V"0R INKEY$="M" THEN GOSUB 2210: GOTO 150 
1410 LET a$=INKEY$ 

1420 IF a$ <> n lV AND a$<>"0" THEN GOTO 1410 
1430 LET a=VAL a$: PRINT AT 9,17;a: IF a=0 THEN PRINT AT 
8,12;" I":GOTO 1450 
1440 PRINT AT 8,12; ” k" 

1450 SOUND .2,20: SOUND .3,21 

1460 PRINT AT 21,1; "tecle o valor de B l/0aaaaDQQQD 
PAUSE 0 

1470 LET b$=INKEY$ 

1480 IF b$ < > "1" AND b$<>"0" THEN GOTO 1460 
1490 LET b=VAL b$: PRINT AT 11,17;b: IF b=0 THEN PRINT AT 
12,12;" I": GOTO 1510 
1500 PRINT AT 12,12; " K" 

1510 SOUND 2,10 

1520 LET s=NOT (a AND b): PRINT AT 10,27;s 

1530 IF s=0 THEN PRINT INK 1; AT 10,10; " G": GOTO 1550 

1540 PRINT INK 5; AT 10,10; " G" 

1550 PAUSE 3: GOTO 1330 
1560 REM ** Porta NOR ** 


i,g,kAbc 
em roodo graf ico! 


1570 REM ** Aqui desehha-se o esquema 
1590 GOSUB 2170 

1600 PRINT AT 9,19 AT 11,19; AT 10,24; 

1610 PLOT 167,103: DRAW 0,-30,-1.5: DRAW 10,0: DRAW 0,30,3: 
DRAW -10,0 

1620 PRINT AT 8,19; "A";.AT 13,19; "B"; AT 9,25; "S” 

1630 CIRCLE 194,83,2: OVER 1: PLOT 193,88: -PLOT 194,88: 
PLOT 195,88: OVER 0 

1640 PRINT AT 11,8; "a"; AT 11,10; ”b"; AT 11,12; "s" 

1650 PLOT 39,108: DRAW 68,0: DRAW 0,-32: DRAW -68,0:, PLOT 
76,108: DRAW 0,-32: PLOT 92,108: DRAW 0,-32 
1660 PRINT AT 3,3; "+"; AT 8,6; "ABC"; AT 10,11; 


AT 10,13; AT 12,3; AT 10 ,9; " 

1670 PRINT AT 13,6; "PORTA TIPO NOR" 

1680 REM ** controle NOR ** 


ABC 
H, J 

emmodo^grafico 


1690 PRINT AT 21,0 f'dtecle o valor de A 1/0 M=menu. ": 


PAUSE 0 . 

1700 PRINT AT 10,27; AT 11,17;"r" 

1710 IF INKEY$="m" OR INKEY$ ± ="M" THEN GOSUB 2210: GOTO 150 
1720 LET a$=INKEY$ 

1730 IF a$ <> "l" AND a$<>"0" THEN GOTO 1720 


1740 LET a=VAL a$: PRINT AT 9,17; a: IF a=0 THEN PRINT AT 
10,9; " H": GOTO 1760 
1750 PRINT AT 10,9; "J" 

1760 SOUND .2,25: SOUND .3,24 

1770 PRINT AT 21,1; “tecle o valor de B l/0ODDODDOnO": 
PAUSE 0 

1730 LET b$-INKEY$ 

1790 IF b$<>"l" AND b$<>"0" THEN GOTO 1780 

1300 LET b=VAL b$: PRINT AT 11,17; b: IF b=0 THEN PRINT 


AT 10,11;" H": GOTO 1820 . 
1810 PRINT AT 10,11; " J" 

1820 SOUND .2,15: SOUND .3,16 
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1830 LET s=NOT (a OR b): PRINT AT 10,27;s 
1840 IF s=0 THEN PRINT INK 1} AT 10,13; " G": GOTO 1680 
1850 PRINT INK 5; AT 10,13; "G 
1860 PAUSE 3: GOTO 1680 
1870 REM ** Porta OR exclusivo ** 

1890 REM ** Aqui desenha-se o esquema 
1900 GOSUB 2170 

1910 PRINT AT 9,19; "_"; AT 11,19;"_AT 10,24;"___" 

1920 PLOT 167,103: DRAW 0,-30.,-1.5: DRAW 10,0: DRAW 0,30,3: 

DRAW -10,0: PLOT 163,103: DRAW 0,-30,-1.5 
1930 PRINT AT 8,19; "A"; AT 13,19; "B”; AT 9,25; "S" 

1940 PRINT AT 8,3; AT 12,10;"*"; AT 13,6; "a'*OnsDDIb"; 

AT 14,3; 

1950 PLOT 39,108: DRAW 69,0: DRAW 0,-50: DRAW -69,0: PLOT 
60,108: DRAW 0,-50: PLOT 60,76: DRAW 48,0 
1960 PRINT AT 18,4; "Porta tipo OR exclusivo" 

1970 PRINT AT 9,7;"Dn0OO0ODD”;AT 10,7; "E □□.□□□ E"; AT 
11,7; "FOODDD F " 

1930 REM ** controle exclusivo ** 

1990 PRINT AT 21,0;"Qtecle o valor de A 1/0 M=menu ": 

PAUSE 0 

2000 PRINT AT 10,27; "O"; AT 11,17; "D" 

2010 IF INKEY$="m" OR INK£Y$="M" THEN GOSUB 2210: GOTO 150 
2020 LET a$=INKEY$ 

2030 IF a$ <> "1" AND a$ <> "0” THEN GOTO 2020 
2040 LET a=VAL a$: PRINT AT 9,17; a: IF a=0 THEN PRINT 
AT 13,7; " HGOTO 2060 
2050 PRINT AT 13,7; "J " 

2060 SOUND .2,24: SOUND .3,23 

2070 PRINT AT 21,1; "tecle o valor de B 1/0□□□□□□□□□ ": 
PAUSE 0 

2030 LET b$=INKEY$ 

2090 IF b$ <>"1" AND b$ <>"0" THEN GOTO 2080 
2100 LET b=VAL b$: PRINT AT 11,17; b: IF b=0 THEN PRINT 
AT 13,13; "H ": GOTO 2120 


G,D,E,F,H,U. 
em modo grafico 


2110 

2120 

2130 

2140 

2150 

2160 

2170 

2130 

2190 

2200 

2210 

2220 

2230 

2240 


PRINT AT 13,13; ” J" 

SOUND .2,15: SOUND .3,16 
LET s=(a OR b) AND (MOT (a AND b)): PRINT AT 10,27;s 
IF s=0 THEN PRINT INK 1; AT 12,10; " G”: GOTO 2160 
PRINT INK 5; AT 12,10; " g" 

PAUSE 3: GOTO 1990 


J ,G 

modo grafico 


REM *** Com este trecho se divide a tela para a 
apresenta$ao *** 


PLOT 127,128: DRAW 0,-80 

PRINT AT 5,5; "esquema"; AT 5,19; "simbolo" J 
RETURN \ 

REM ** Com esta parte se limpa a tela ** 

let a$="DaoDpaDpnnnnannaDODonaaoaoDD 


.. 'c? 


FOR n=4 TO 18: PRINT AT n,2;a$: SOUND ,072, n*2: NEXT n 
PRINT AT 21,2; a$+"C": RETURN 


O.I.* 


1) Nao esquema que para obter os slmbolos gra 
ficos indicados na Listagem acima .voce de— 
ve entrar em modo grafico com as seguintes 



2) Nao esquema evidentemente de gravar este 
super programs quando ele estiver total- 
mente correto ou pelo menos quando voce 






ja tiver obtido os resultados indicados nas 
Figuras 31 a,b,c. 



Figura 31 


Para finalizar este livro (nao fique tris- 
,te pols ja existem ou vao aparecer outros livros so 
bre o TK 90X do mesmo autor...) ai vai a versao com 
putadorizada do popular jogo no qual se'exige que 
voce desloque pegas em ura "grid" de 4x4 ate que ob- 
tenha uma sequencia correta ou entao um quadro cer- 
to como siostrado na Figura 32., 
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0 tempo que o seu TK 90X ira levar para 
te fira e de aproximadamente 1 minuto e por isto nao 
fique aflito(a) durante este.intervalo de tempo... 

Quando o problems-ja esta criado o "grid" 
e exibido com as peqas do quebra-cabe§a colocadas 
em locals erradss e a sua tarefa e coloca-las nos 
lugares certos no menor numero possivel de movimen- 
tos . 

Para deslocar uma peqa para uma casela va^ 
zia voce deve teclar a letra correspondents ao qua^ 

'I 

drado onde esta a pe 5 a em questao, isto e, as le^ 
tras adjacgntes na horizontal ou na vertical, 

Os quadrados no reticulado do quebra^cabe- 
qa sao repres'entados pelas letras A ate P como esta 
indicado na Tabela 2. 


A 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M • 

N 

0 

P 


Tabela 2 

0 problems ou seja o quebra-cabeqa esta re 
solvido quando o quadro correto aparecer no "grid" 
(so faltava nao ser assim, nao e?). 


( O.I.J 1) 0 programa deve ser embutido no TK 90X uti- 
lizando o [CAPS LOCK] (so letras maiusculas). 


pi^^Pr>.2) Fique atento para entrar com o numero corre 
to de espaqos em branco. 

im\ 

\ ' Bern, ai vai o ultimo programa (nao pare pa 
ra se lamentar, pois tern mais livros nossos sobre 0 
as sunto...). 
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2 POKE 23658,8 
5 DIM P(16,9): DIM B(16) 

10 BORDER 1: INK 0: LET T=0 ^ 

15 PRINT AT 0,3; :FLASH l: PRINT "0 QUEBRA-CABEQA 

DESLIZANTE";:FLASH 1 
20 PRINT: PRINT 

24 PRINT " A IDglA DESTE JOGO EVOCE RECRIAR'UM QUADRO EM 
UM RETICULADO 4x4 DESL0CAND0 AS PEQAS PARA A CASELA 
VAZIA." 

26 PRINT 

28 PRINT "VOCE PODE CONSEGUIR ISTO TECLANDO A LETRA DA PEQA 
QUE QUER DESLOCAR PARA 0 QUADRADO VAZIO." 

30 PRINT: PRINT "AS PEQAS NO QUADRICULADO SAO REPRESENTADAS 
PELAS LETRAS:" 

35 PRINT 

40 FOR J=1 TO 16 

45-IF J < 5 THEN-PRINT AT 15,12+J; CHR$ (64+J): GOTO 65 
50 IF J<9 THEN PRINT AT 16,8+J; CHR$ (64+J): GOTO 65 
55 IF J <13 THEN PRINT AT 17,4+J; CHR$ (64+J): GOTO 65 
60 PRINT AT 18,J; CHR$ (64+J): GOTO 65 
65 NEXT J 

70 PRINT AT 20,2; FLASH 1: PRINT "APERTE QUALQUER 

TECLA";: FLASH 0 
75 IF INKEY$ = "" THEN GOTO 75 
80 CLS 

85 PAPER 5: GOSUB 1000: GOSUB 1300: GOSUB 1100 
90 PRINT AT 4,1; "ESTA S" 

95 PRINT AT 5,3; "A" 

100 PRINT AT 6 , 1 ; "SOLUgAO" 

110 FOR P=1 TO 16 
112 LET B(P) = P 

115 LET R=P 

116 IF R=BRANC0 THEN LET LUGAR=P: GOTO 125 





110 


111 


120 GOSUB 1200 
125 NEXT P 

130 FOR 2=1 TO 1499; NEXT Z 
135 PAPER 5: CLS 
140 GOSUB 1400 
145 GOSUB .1300: GOSUB 1100 
150 FOR P-1 TO 16 
155 LET R=B(P) 

160 IF R=BRANCO THEN LET LUGAR=P:GOTO 170 
165 GOSUB 1200 
170 NEXT P 

175 INK 0: PAPER 5: PRINT AT 5,1;"NOMERO";; PRINT AT 6,1; 

"DE PASSOS”: PRINT AT 8,6;"0" 

180 LET B$=INKEY$: IF B$="" THEN GOTO 180 

185 IF CODE B$< 65 OR CODE B$ > 80 THEN GOTO 180 

190 GOSUB 1500: IF L=0 THEN GOTO 180 

195 LET F=CODE (B$)-64: GOSUB 1600 

200 LET P=LUGAR: LET R=B(CODE (B$)-64): GOSUB 1200 

205 LET S=LUGAR: LET LUGAR=CODE (B$)-64: LET Z=B(LUGAR): 

LET B (LUGAR )=B(S).: LET B(S)=Z 
210 LET T=T+1 
215 INK 0: PAPER 5 

220 IF T <10 THEN PRINT AT 8,6;T: GOTO 250 

225 IF T <100 THEN PRINT AT S,5;T: GOTO 250 

230 IF T <1000 THEN PRINT AT 8,4;T: GOTO 250 

235 STOP 

250 GOSUB 1700 

260 GOTO 180 

1000 FOR J=1 TO 16 

1005 PRINT "□□□□□□□□□□□□□□□□□QQtSQGQDQQDGDdDn " 
1010 FOR 1=1 TO 9 
1020 READ P(J,I) 

1025 IF P(J,I)=0 THEN LET BRANCO=J: GOTO 1040 


1030 NEXT I 
1040 NEXT J 

1050 FOR K=1 TO 6: PRINT '’□DQOOOQODQOOODODODOOODQDDOOOaDon 
PAUSE 6: NEXT K 
1100 INK 0 
1105 FOR J=0 TO 16 
1110 PRINT AT 4,10+J;CHR$ 143 
1115 PRINT AT 8,10+J;CHR$ 143 
1120 PRINT AT 12,10+J;CHR$ 143 
1125 PRINT AT 16,10+.J;CHR$ 143 
1130 PRINT AT 20,10+J;CHR$ 143 
1135 PRINT AT 4+J,10;CHR$ 143 
1140 PRINT AT 4+J,14;CHR$ 143 
1145 PRINT AT 4+J,18;CHR$ 143' 

1150 PRINT AT 4+J,22;CHR$ 143 
1155 PRINT AT 4+J,26;CHR$ 143 
1160 NEXT J 
1165 RETURN 

1200 LET X=5+4*INT ((P-l)/4) 

1205 LET Y=7+4*(P-4*INT((P-l)/4)) 

1210 INK 4: PAPER 6 
1215 PRINT AT X,Y;CHR$ P(R,1) 

1220 PRINT AT X,Y+1;CHR$ P(R,2) 

1225 PRINT AT X,Y+2;CHR$ P(R,3) 

1230 PRINT AT X+1,Y;CHR$ P(R,4) 

1235 PRINT AT X+1,Y+1;CHR$ P(R,5) 

1240 PRINT AT X+1,Y+2;CHR$ P(R,6) 

1245 PRINT AT X+2,Y;CHR$ P(R,7) 

1250 PRINT AT X+2,Y+1;CHR$ P(R,8) 

1255 PRINT AT X+2,Y+2;CHR$ P(R,9) 

1260 RETURN 

1300 INK 0: PRINT AT 1,3; FLASH 1: PRINT "0 QUEBRA- 

CABE£A DESLIZANTE";: FLASH 0 
1310 PRINT AT 2,7; " ESTE E 0 QUADRICULADO" 
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1320 FOR J=1 TO 16 

1325 IF J<5 THEN PRINT AT 17,2+J;CHR$ (64+J): GOTO 1340 
1330 IF J<9 THEN PRINT AT 18,J-2;CHR$ (64+J): GOTO 1340 
1334 IF J< 13 THEN PRINT AT 19,J-6;CHR$ (64+J): GOTO 1340 
1337 PRINT AT 20,J-10;CHR$ (64+J): GOTO 1340 
1340 NEXT J 
1350 RETURN 

1400 INK 0:. PRINT AT 10,7; "CRIANDO 0 PROBLEMA" 

1405 FOR J=1 TO 56 
1410 LET B-l+INT (16*RND) 

1420 LET B$=CHR$ (B+64): GOSUB 1500 
1425 IF L=0 THEN GOTO 1410 

1430 IF J< 25 THEN PRINT AT 8,3+J;"*": GOTO 1450 
1435 IF J< 29 THEN PRINT AT J-16,27;"*": GOTO 1450 
1440 IF J< 52 THEN PRINT AT 12,56-J;"*": GOTO 1450 
1445 PRINT AT 64-J,4;"*" 

1450 LET S=LUGAR: LET LUGAR=B: LET Z=B(LUGAR): 

LET B(LUGAR)»B(S): LET B(S)=Z 
1455 NEXT J 
1460 CLS: RETURN 

1500 LET L=0 

1501 IF CODE (B$)-64=LUGAR THEN RETURN 
1505 IF LUGAR=1 AND (B$="B" ORB$="E") THEN LET L= 1: RETURN 
1510 IF LUGAR-2 AND (B$=”A" OR Bl^'C'* OR B$="F") 

THEN LET L-l: RETURN 

1515 IF LUGAR=3 AND (B$="B" OR B$="D" OR B$=V) THEN LET 
L-l: RETURN 

1520 IF LUGAR-4 AND (B$= M C" OR B$="H") THEN LET L-l: RETURN 
1525 IF LUGAR=5 AND (B$="A’' OR B$="F" OR B$="l") THEN LET 
L-l: RETURN 

1530 IF LUGAR-6 AND (B$="B" OR B$="E" OR B$=”G" OR B$="J") 
THEN LET L-l: RETURN 

1535 IF LUGAR-7 AND (B$="C" OR B$="F” OR B$="H" OR 
B$-"K") THEN LET L-l: RETURN 


1540 IF LUGAR=8 AND (B$="D" OR B$*"G” OR B$="L") THEN LET 
L-l: RETURN' 

1545 IF LUGAR-9 .AND (B$="E" OR B$="j" OR B$="M") THEN LET 
L-l: RETURN 

1550 IF LUGAR=10 AND (B$="F" OR B$="l" OR B$="K" OR 
B$="N") THEN LET L-l: RETURN 
1555 IF LUGAR=11 AND (B$="G T ’ OR B$-"j” OR B$="L” OR 
B$="0") THEN LET L=l: RETURN 

1560 IF LUGAR=12 AND (B$="H" OR B$="K" OR B$="P’') THEN LET 
L-l: RETURN 

1565 IF LUGAR=13 AND (B$="l" OR B$= ,, N ,, ) THEN LET L-l: 
RETURN 

1570 IF LUGAR=14 AND (B$="J" OR B$=”M M OR B$="0 H ) THEN LET 
L-l: RETURN 

1575 IF LUGAR=15 AND (B$="K" OR B$="N" OR B$=* , P") THEN LET 
L-l: RETURN 

1580 IF LUGAR=l6 AND (B$="L" OR B$="0") THEN LET L-l: 

RETURN 
1590 RETURN 

1600 LET X=5+4*INT ((P-l)/4) 

1610 LET Y=7+4*(P-4*INT ((P-l)/4)) 

1620 PAPER 5 

1625 PRINT AT X,Y;"DPD " 

1630 PRINT AT X+l,Y;"DOD " 

1635 PRINT AT X+2,Y;"DDD ” 

1640 PAPER 5 
1650 RETURN 
1700 FOR J=1 TO 16 
1710 IF B(J) <>J THEN RETURN 
1720 NEXT J 

1730 PAPER 6: INK 2: PRINT AT 12,2; FLASH 1: PRINT 
"RESOLVIDO”; FLASH 0 
1740 STOP 
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2000 DATA 0 

2005 DATA 128,128,123,128,135,128,128,133,128 
2010 DATA 128,128,128,128,128,137,128,128,143 
2015 DATA 137,128,128,128,128,128,128,128,128 
2020 DATA 128,128,141,128,141,143,128,143,143 
2025 DATA 143,143,143,143,143,143,128,128,143 
2030 DATA 143,143,143,143,143,143,143,128,128 
2035 DATA 142,128., 128,143,14.2,128,143,143,128 
2040 DATA 128,143,143,128,143,143,128,143,128 
2045 DATA 128,128,143,143,143,143,128,143,128 
2050 DATA 143,128,128,143,143,143,128,143,128 
2055 DATA 143,143,128,143,143,128,128,143,128 
2060 DATA 128,143,128,128,143,143,128,128,128 
2065 DATA 128,143,128,143,143,140,128,128,128 
2070 DATA 128,143,128,140,143,143,128,128,123 
2075 DATA 128,143,128,143,143,128,128,128,128 
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